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Before using this manual, you should be familiar 
with the information in the /BM 5110 BASIC 
Introduction, SA21-9306, such as: 

• Entering data from the keyboard 

• The arithmetic operators 

• How to enter a program 

• Using data files 

• Using arrays 

This manual gives you conceptual information 
about using the 5110 with the BASIC language 
and is intended to be used with the IBM 5110 
BASIC Reference Manual, SA21-9308. The topics 
covered in this manual include: 

o Computer concepts for data processing 

'\ • An approach to breaking your application into 
small parts to make programming easier 

• Changing the sequence of execution within your 
BASIC program 



• Formatting the data on the display screen 

o Entering uppercase and lowercase characters 

• Using a procedure file to replace keyboard input 

• Sounding the audible alarm 

• Using tape and diskette storage 
e Formatting printed reports 

• Additional tips and techniques 



Since this manual is not intended to give you a 
complete description of the syntax and rules 
required for each BASIC command and statement, 
you must use the IBM 5110 BASIC Reference 
Manual for this description. 

This manual does not need to be read chapter by 
chapter. Instead, you can read the appropriate 
chapters as required. For example, you might read 
Chapter 3, Changing the Sequence of Execution In 
Your BASIC Program, when you need information 
on program loops. 



Prerequisite Publication 

IBM 5110 BASIC Introduction. SA21-9306 

Related Publications 

IBM 5110 BASIC Reference Manual, SA21-9308 

IBM 5110 BASIC Reference Handbook, GX21-9309 

IBM 5110 Customer Support Functions Reference 
Manual, SA21-9311 



/^' 



N 



o 



Contents 



r 



CHAPTER 1. 5110 DATA PROCESSING CONCEPTS . .1 

Introduction 1 

Advantages of Connputer Data Processing 5 

CHAPTER 2. ELEMENTS OF A BASIC PROGRAM. . . .9 

Defining a Program 9 

Processing Information 10 

Output 10 

Input 11 

Process 12 

Putting it all Together 12 

Additional Levels of Input, Process, and Output 13 

Conclusion 15 

Basic Statements Most Commonly Used for Information 

Processing 16 

Process Statements 17 

Output Statements 18 

CHAPTERS. CHANGING THE SEQUENCE OF 

EXECUTION IN YOUR BASIC PROGRAM 19 

Loops 19 

Using the IF Statement 20 

The Computed GOTO Statement 24 

More about Loops-Using FOR and NEXT Statement . .24 

Functions and Subroutines 27 

Functions 27 

Subroutines 30 

Computed GOSUB Statement 32 

Program Chaining 33 

CHAPTER 4. FORMATTING A REPORT 35 

Print Using and the Image Statement 35 

Print Using and the Form Statement 38 

Numeric Specification— PIC 38 

Character Specification— C 41 

Format Control Specifications-X, POS, SKIP 42 

Print Using with a Character Variable 46 

Printer Spacing Control 47 

CHAPTER 5. SAVING AND LOADING THE WORK 
AREA 49 

Determining the Size a File Should Be 49 

Saving and Loading Data on a Tape or Diskette File. . . .49 

Controlling the Files on Tape or Diskette 50 

Maintaining Data Security 50 

Protecting Your Programs 50 

Protecting Your Data Files 51 

Removing Sensitive Data 53 



Chapter 6. Tape Concepts 55 

How to Format the Tape 55 

How to Determine the Storage Available on a 
Tape Cartridge 58 

Chapter 7. Diskette Concepts 61 

Diskette Wear 62 

Diskette Addressing and Layout 63 

Track and Cylinder 63 

Sector 64 

Index Cylinder 64 

Alternate Cylinders 65 

Diskette Types and Formats 65 

Diskette Initialization 66 

Volume ID, Owner ID, and Volume-Protect Indicator . .66 

File ID 66 

Diskette File Write-Protect Indicator 66 

Diskette File Organization 67 

Reallocating Diskette File Space 67 

Determining the Storage Available on a Diskette 68 

Number and Size of the Diskette Files 70 

How the File Space is Allocated 71 

Chapter 8. Introduction to Data Files .73 

Files, Records, and Fields 73 

CHAPTER 9. CHARACTERISTICS OF ACCESSING 
DATA FILES 77 

Sequential Access 77 

Direct Access by Relative Record Number 77 

Direct Processing by Index Key 78 

Sequential Accessing 78 

Direct Accessing 79 

Maintaining Data Files 79 

Adding Records 80 

Tagging Records for Deletion 80 

Updating Records 81 

Reorganizing a File 81 



Contents iii 



V 



CHAPTER 10. DESIGNING A RECORD AND 
DETERMINING FILE SIZE FOR RECORD I/O 
FILES 83 

Designing a Record 83 

Determining Field Size 83 

Providing for a Delete Code 84 

Record Expansion 84 

Designing a Sample Record 84 

Determining the Size of a File 85 

Calculating File Space 86 

Calculating Index File Space 86 

Review— Calculating File Space 87 

CHAPTER 11. PROCESSING A DATA FILE 89 

Processing Stream I/O Files 89 

Opening and Closing Stream I/O Files 89 

Writing to and Reading from Stream I/O Files 91 

Accessing Record I/O Files 94 

Opening and Closing Record I/O Files 95 

Writing to and Reading from Record I/O Files 97 

More Information About Processing Record 
I/O Files 106 

Summarizing Record-Oriented Statements 113 

CHAPTER 12. CONTROL OF YOUR 5110 115 

Using the Display Screen for Input and Output 115 

Using Procedure Files 119 

Using the System Control Functions 120 

READ FILE FLS Statement 120 

WRITE FILE FLS Statement 121 

Additional Use of File FLS 122 

Using the UTIL Command . 122 

CHAPTER 13. USING ARRAYS 125 

Naming Arrays 126 

Defining Arrays 126 

Placing Values into Arrays 129 

Redimensioning Arrays 131 

Difference Between Mat and Let 132 

Array Operations 133 

Array Addition and Subtraction 133 

Scalar Multiplication 134 

Indexing Function 134 

Matrix Multiplication 135 

CHAPTER 14. WHAT TO DO WHEN YOUR 
PROGRAM DOES NOT WORK 139 

Program Trace 139 

Program Step 141 

Comments 142 

Keyboard Test Data Files 142 



CHAPTER 15. TIPS AND TECHNIQUES 143 

Performance Considerations 143 

Program Design 144 

Index File Sorting 144 

Print Overlap 144 

Display Off 145 

Main Storage Index Area 145 

Data File Access Selection 148 

Storage Considerations 149 

User Storage 149 

Program Design 150 

Variables 150 

Program Statements 152 

Buffers 152 

Printer 153 

Using A$ 153 

Precision Long and Short 153 

Program Analysis Using a Cross— Reference Program . . 154 

Skipping to a New Page While Printing 159 

Using File FLS 159 

User Program Control 161 

Locating a Character in a String 162 

Testing for an Error 162 

Sorting an Index File 164 

Another Way to Read a Stream Input File 165 

Different File Access Methods 167 

Creating an Index File 168 

Direct Access and Update with Key Index 170 

Sequential Access by Key Index 172 

Direct Access by Relative Record Number 175 

Create Multiple Index 177 

INDEX 179 



IV 



Chapter 1. 5110 Data Processing Concepts 



o 



INTRODUCTION 

What can you expect a computer to do with information? How do you 
get information into a computer? How does a computer know what to 
do with your information? What final results can you expect? 

Today the computer is doing many jobs, from accounting to predicting 
election results to guiding spaceships. It is often looked upon as some 
kind of magical machine, but the computer performs no magic. 
Everything a computer does is dependent on the people who use it 
and the instructions they supply. For every job you want a computer 
to do, you must give a step-by-step procedure (a program) for it to 
follow. This procedure is then stored inside the computer. The 
information you want is processed according to the stored 
instructions. 

A computer can do a wide variety of operations. It can retrieve, 
almost instantly, any item of information stored in it. It can compare 
any two items of information and do any arithmetic operations you 
want-add, subtract, multiply, or divide. It can be instructed to do any 
combination of these things in any sequence you want them done. 

The computer works methodically, doing one thing at a time. When it 
finishes one step, it goes on to the next, then the next, and the next, 
according to instructions. But it performs these steps at an almost 
unbelievable speed until it comes up with the answer you want. 

The work performed by a computer is called data processing. Data 
processing means that information is handled according to a set of 
rules. Whether you process information by hand or use a computer, 
the requirements of a job remain about the same. You must have 
input, which is the data you want to do something with; you must 
process the data, which is the act of doing something with data 
according to instructions; and you must have output, which is the 
result of your processing. 
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To help you understand the 5110 and data processing, let's first look 
at how an employee might process information for the job of billing. 
Assume for this job that the employee works with the following data: 

o Customer orders 



Price catalogs 
Customer records 



Accounts receivable records 



• Inventory files 




o 



The employee receives a copy of the customer order after the order is 
shipped. He uses this document to prepare the invoice that he sends 
to the customer. To prepare the invoice, the employee: 

1. Looks up, in a price catalog, the price of each item in the order 

2. Multiplies the price of each item by the quantity shipped 

3. Adds the total price of each item to get the total amount of the 
invoice 



4. Checks the customer records to see if any special discounts 
apply, and adjusts the invoice accordingly 

5. Types the invoice 

6. Adjusts the accounts receivable records to show what the 
customer owes 



7. Updates the inventory files to show the reduced stock 

For each invoice he prepares, the employee follows the same 
procedure. In computer terms, the procedure is his program for doing 
the job. The customer order is his input; the calculating and file 
updating he does is processing; and the results of processing-the 
invoice and the updated records-are his output. 

As shown in Figure 1, computer data processing can speed up a billing 
operation and reduce costly errors. Data (customer order information) 
can be entered at high speed via the keyboard; many records can be 
quickly referenced and updated in a magnetic storage medium (tape or 
diskette); the processing unit can store and carry out instructions (a 
program) and perform needed calculations; and a printer can print the 
invoice. 
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Figure 1. Computer Data Processing 
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The 51 10 Model 1 Computing System (Figure 2) contains the following 
elements, which are components of the data processing system: 

• Input Elements-keyboard, tape, diskette 

• Output Elements-tape, diskette, printer, display screen 

o Processing Elements-main storage, tape, diskette, programs 



Display 
Screen 



Main Storage 




Keyboard 



Tape Drives 



Diskette 
Drives 



Printer 



Figure 2. 5110 Computing System Data Processing Elements 



The keyboard is the device the operator uses to key (enter) data into 
the processing unit. 

The tape and diskette are used either as input or output devices. Input 
data or programs can be entered into the system using the tape or 
diskette. Output data can be stored on the tape or diskette for use in 
other programs. 

The printer records on paper (prints) the data sent to it by the 
processing unit. This printed material is sometimes referred to as the 
hard copy output. 

The display screen displays output data sent to it by the processing 
unit. The system uses the display screen to communicate with the 
operator by displaying information keyed on the keyboard so that the 
operator can verify the Information before it enters the system. The 
system also displays messages that identify keying errors and provide 
operator guidance or specific processing information as required. 



o 



The processing unit is made up of the main storage, tape or diskette, 
and programs. The tape or diskette is used to store files of 
information and programs that are used by the system. Main storage 
is the part of the processing unit that holds a program so that the 
system can execute the steps in the program. Data is moved from 
tape or diskette into main storage for use by the program being 
executed. 



ADVANTAGES OF COMPUTER DATA PROCESSING 

If data processing is always a matter of input, processing, and output, 
how is computer data processing different from manual or mechanical 
data processing? Computers process large volumes of data faster, 
more accurately, in less space, and with greater versatility. 

• Speed. Because computers process data electronically, they 
operate at remarkable speeds that save a tremendous amount of 
time. 

• Accuracy. A computer does exactly what it is told to do and only 
what it is told to do. Because of this constant dependence on 
instructions, a computer follows program after program, second 
after second and hour after hour, with unvarying accuracy. 

Computers also reduce transcription errors by dramatically reducing 
the need for manual transcription. Once you record data on a tape 
or diskette that data may never have to be written by hand 
again-you can update as many different customer records, complete 
as many different kinds of forms, and create as many different 
reports from that data as you have application programs that use 
the data. By referring to the display screen while first recording the 
data, you can insure that the data is keyed correctly. Programs that 
use the data can perform control total checks and balances to 
continually validate the accuracy of the data. 
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Data Compression. Computers miniaturize data. Suppose a business 
enters its accounts receivable transactions in a machine-posted 
register like the one shown below. 
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CUSTOMER 
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JOURNAL 


DATE 
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NAME 
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NO 


AMOUNT 


AMOUNT 


AMOUNT 


07/n/- 
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633870 


OLDE VILLAGE SHOPPE 
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10.70CR 
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V 



The preceding example shows 10 sample entries, or records. 
Several thousand such transaction records can be stored by the 
system on one diskette. That is, the system enables you to store 
large volumes of business information in an economical and 
manageable form that can be processed by a machine. 



V_ 
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• Versatility. The number of different tasks a computer can do is 
limited only by the number of different programs run on it. The 
computer can do much more than just add, subtract, multiply, and 
divide. The 5110 can, for example, prepare invoices, keep accounts 
receivable up to date, print weekly paychecks, and analyze data for 
thorough cost and sales analysis. 



~N Speed, accuracy, data compression, and versatility combine to reduce 



data processing errors and increase productivity. But a less obvious 
advantage of computers has a more fundamental effect. 

Computers impose discipline. As explained, a computer is helpless 
without programs-it cannot think for itself. Neither can a computer 
guess whether its programs really reflect the problems at hand-you 
must see that they do. In other words, you must carefully analyze the 
data processing requirements of your organization in order to take full 
advantage of a computer. For instance, with the data processing 
capabilities provided by a 5110, what additional cost analysis, 
inventory control, and auditing procedures would you like to implement 
in your organization? 

The responsibility for analyzing an organization's data processing 
requirements falls, of course, to management. But the discipline 
imposed by a computer extends throughout the data processing 
activities of the organization. Once you've designed or selected 
computer programs that reflect management directives, you've 
established management control that is automatically practiced each 
time those programs are used. 
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Before reading this chapter, you should be familiar with the 
information in the 5770 BASIC Introduction, such as: 

o Entering data from the keyboard 

o The arithmetic operators 

o Numeric and character variables 

• The arithmetic operator hierarchy 

o Entering a BASIC program 

o The BASIC language statements REM, INPUT, GOTO, STOP, 

LET, IF, FOR, NEXT, READ, DATA, RESTORE, PRINT, OPEN, CLOSE, 
RESET, PUT, GET, and DIM 

o The system command used to store and retrieve programs on a 
tape or diskette 

In this chapter, the following topics are discussed: 

o Defining a program 

o Analyzing an application (problem) so that BASIC programs can be 
used to process information 

o The most commonly used BASIC statements 

DEFINING A PROGRAM 

A program is a procedure or set of instructions you establish for doing 
a job. These instructions are necessary because a computer cannot 
think for itself. When defining a program for the 5110, you can use a 
programming language called BASIC. BASIC is a simple-to-use 
programming language with which you describe how you want the 
5110 to do the job. 

The next section presents an approach to analyzing an application so 
that a BASIC program can be used to help process information. This 
approach helps you break down an application into manageable parts 
so that you can apply BASIC statements you know can process the 
information. Breaking down an application into manageable parts 
promotes thoroughness and allows the application to be solved 
(programmed) faster. 



Elements of a BASIC Program 



PROCESSING INFORMATION 

Every problem consists of three parts: 

• The input data required to generate the final result 

• The process (BASIC statements) required to generate the final 
results 

• The output, which is the final result 

Each part might consist of one statement or several statements. In the 
following sections, each part is discussed in more detail. Also, an 
example for finding the compound interest is used to illustrate each 
part. 



Output 



V,_,„^- 



Because the output is the primary reason for a program to exist, 
considering the output provides the best place to start solving a 
problem. To do this, consider these questions: 

1. What results are required? 

2. How should the results be formatted? z^- 

3. Who uses the results? For example, should the results be 
displayed or printed, or should the results be stored in the main 
storage, on tape, or on diskette for later use? 

Now, for the compound interest example, assume the answers to 
these questions are: 

1. The amount of interest earned 

2. The message THE INTEREST EARNED IS: followed by the 
calculated interest earned 

r 

3. Finance officers need the displayed results to evaluate different v. 
plans 

Once you have answered these questions, you know the purpose of a 

program. ^ 
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Input 
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After the output, you should consider what input data is required to 
generate the output. To do this, consider such questions as: 

1. What input is required? 

2. Where does the input come fronn? 

3. How is the input provided? 

For the compound interest example, the answers to these questions 
are: 

1. The interest rate, number of years, and principal 

2. From finance officers who need to know the amount of interest 
earned for different plans 

3. Through the 5110 keyboard 

In our example, most of the input data will come from the keyboard; 
however, other ways also exist. For example, some data might be 
permanent and be included within the program (for example, headings 
and labels). There might also be data that is usually constant but, for 
certain applications, must be changed. This data might be coded in 
the program as variables that can be modified. And, of course, data 
might also be from tape or diskette. 

The following list summarizes the input and output considerations so 
far: 



Device 
Data 



Input 

Keyboard 

Interest rate 
Number of years 
Principal 



Output 

Display 

THE INTEREST EARNED IS: 
The calculated interest earned 
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Process 



Once the input and output are well defined, all of the characteristics 
work together to make the process part the most straightforward. 

For our compound interest example, the process part consists of: 

1 . Defining the algorithm used to calculate the compound interest 

2. Using the input to generate the results 

The formula used in this example for the compound interest is: 



COMPOUND INTEREST = PRINCIPAL 



/I + Rate\ Years ( 

\ loo"; ^ 



The BASIC statements that use the input to generate the results might 
be as follows: 

A "■" 1 vR/:i. -^ R is the interest rate 

B •"" AtY -• Y is the time in years 

C "" F-)'/B -• P is the principal 

^ C is the compound interest 

PUTTING IT ALL TOGETHER 

Now that you have considered the three parts of information 
processing, it is time to write your program. For the compound 
interest example, your program might look like this: 

:!. P R 1 N T ' E. N T E R T !••! E I N J E R E S T , P R 1 M C: :i: P A I... ; A N D Y E A R S 

02 INPUT R,P,Y 

030 A"";l.•^R/:l.0 

OOi-l-O B:^:^AtY 

05 C""pwB 

6 !•' R :i: N r ■ r i -i i: :i; n t e r e s t e a r n i;;: b :i: s : ■ 

07 PRIIMT C-P 

So far, you have taken a simple application and designed a program to 
solve it. If the application is larger or more complex, a more detailed 
structure is required. This more detailed structure involves expanding 
each of the three parts (input, process, and output) into additional 
levels of input, process, and output. 
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ADDITIONAL LEVELS OF INPUT, PROCESS, AND OUTPUT 

For complex or large applications, you might want to break the INPUT, 
PROCESS, and OUTPUT down into additional levels of input, process, 
and output. 
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This allows you to break each first-level INPUT, PROCESS, and 
OUTPUT part into manageable parts. Let's continue with the 
compound interest problem and expand the first-level INPUT portion 
into additional levels of input, process, and output. That is, the INPUT 
portion is going to be treated as a separate problem in itself. 

First, consider the output of the INPUT portion. Here the output is 
actually the input for the first-level PROCESS portion. In this case, 
assume that the output must be an interest rate not greater than 18%, 
a number of years not greater than 40, and a principal not greater than 
500,000.00. 

Next, consider the input for the INPUT portion. The input is the same 
as before (the interest rate, number of years, and principal for which 
the interest earned must be calculated). However, in this case, the 
finance officers might be unfamiliar with the program; therefore, there 
should be prompting messages telling them what to enter. 
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Finally, consider the process for the INPUT portion. In this case, the 
processing consists of error checking and validation of all the input 
data, because you want to make sure that the interest rate is not 
greater than 18%, the number of years is not greater than 40, and the 
principal is not greater than 500,000.00. 



Now, taking these considerations into account, the BASIC statements 
for the first-level input portion might be: 

0:1.0 PRINT 'ENTER THE INTEREST RATE, YEARS AND PRINCIPAL 

020 INPUT I,Y,P 

030 IE I:;; 18 GOTO 6 

OM-0 PRINT 'THE INTEREST RATE IS GREATER THAN 18 PERCENT 

050 GOTO 10 

06 IE Y:;;M-0 GOTO 90 

7 P R :i: N T ' J i"! E N U M B E R G I- Y E A R S :i: S G R E A T E R "T" H A N '•!• ' 

08 GGTG 10 

09 IE P::; 500000 GGTG 120 

1 !•' R :[ N T ■ T H E p R :[ N c :i: p A I... I s G R i;;: a r e r t i-i an s o o , o o o . o o ' 

110 GGTG 10 

1 2 <> 



"N 



For complex or large applications, you could also break down the 
first-level PROCESS and OUTPUT portions; however we are not going 
to do that for this example. 

As you break an application down into manageable parts, you might 
want to have a separate program for each part. For example: 



05 
1 
2 
30 
MO 
050 
060 
070 
08 
9 
:l. 
1 1 
012 



1 
020 
030 
OO'+O 
050 



USE I,Y,P 

PRINT 'ENTER THE INTEREST RATE, YEARS, AND PRINCIPAL'- 
INPUT I.Y,P 
IF I<ie GGTG 6 

PRINT 'THE INTEREST RATE IS GREATER THAN IB PERCENT' 
GOTG 10 

IF Y::;i|0 GGTG 90 

PRINT 'THE NUMBER GF YEARS IS GREATER THAN MO' 
GGTG 10 

IF P::;50 000 GGTG 120 

!•> R I N T ' T hi E P R I N C I P A L 1 S G R E A T E R T H AN 50 0.00' 
GGTG 10 

CHAIN ' EBO ■ . 2-^.^ The input program is loaded from file 1 and 

executed. 

"The CHAIN statement automatically loads 
the program from file 2 on device E80. 

USE I,Y,P,C 

A"" 1 -i- 1 / 1 -> The process program is loaded from 

B"-At Y file 2 and executed. 

CHAIN 'EBO ' ,3 
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5 USE". I . Y . P ; C -* ^The output program 

00:1.0 PRINT 'THE IMTE RE^ST EARNED IS-' is loaded from 

0020 PR.INT C-P file 3 and executed. 

030 STOP 



CONCLUSION 

When solving a problem using the 5110, break the problem down into 
manageable parts. To do this, first focus on the program output; this 
is the primary interface to the user. The output also defines what the 
real purpose of the program is. Next, consider all the input data that is 
required to generate the output. Finally (and only then), plan the 
actual processing. 

Thinking in this way should help you make the transition from knowing 
the BASIC language to being able to use the BASIC language and then 
to generating programs that solve real problems. 



o 
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BASIC STATEMENTS MOST COMMONLY USED FOR INFORMATION 
PROCESSING 

Following is a description of some BASIC statements that you will use 
for the input, process, and output portions of a BASIC program. 



Input Statements 
Statement 



Description 



INPUT 



Requests that you enter data 
from the keyboard during the 
execution of the program. The 
data entered from the keyboard 
is assigned to a corresponding 
name (variable) specified by 
the statement. 



DATA 



Creates a string of numeric and/or 
character values that can be used 
by the program. The values are 
assigned to a corresponding name 
specified by a READ statement. 



READ 



Assigns values to variables and 
arrays from the values created by 
a DATA statement. 



OPEN 



CLOSE 



READ FILE 



Causes specified input and/or 
output files to be activated. 
The files can then be used 
for the input and/or output 
operations. 

Causes the specific input and/or 
output file to be deactivated. 
The files cannot then be used for 
input and/or output operations 
until they are opened again. 

Reads records from a specified 
record I/O data file (see 
Chapters 7 through 10) and assigns 
the data to specified variables. 



DIM 



GET 
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Specifies the size of arrays 
and character variables used 
by the program. 

Reads data from a specified stream 
I/O data file and assigns the data 
to specified variables. 
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Process Statements 
Statement 

LET 



Description 

Assigns the value of an expression 
to a variable. 



FOR 



Marks the beginning of a loop and 
specifies the condition of its 
execution and termination. The 
NEXT statement is used to mark the 
end of the loop: 



0:1.0 FOR |< 



1 TO :i. 



0130 NE-XT l< 



r 



NEXT 
GOSUB 



See the FOR statement. 

Transfers control to the first 
statement of a subroutine. Then 
when a RETURN statement is executed, 
control returns to the next 
statement following the GOSUB 
statement: 

0100 GOSUB 250 

0120 I ^- 1^- 



250 REH THIS IS A SUBROUTINE 



29 RETURN- 



RETURN 
GOTO 

IF 



A subroutine is useful when the 
same statements must be executed 
several times in the program. 

See the GOSUB statement. 

Transfers control to a specified 
statement. 

Causes the program action to be 
determined as the result of the 
evaluation of a condition. 
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Output Statements 
Statement 

PRINT 

PRINT FLP 



WRITE FILE 



REWRITE FILE 



PUT 



Description 

Causes data to be displayed on 
the display screen. 

Causes data to be printed on the 
51,03 Printer. Data can be formatted 
as it is being printed if the 
PRINT FLP statement is used in 
conjunction with the IMAGE and 
FORM statements. 

Adds a new record at the end of 
a record I/O file. 

Updates (rewrites) a record that 
already exists in a record I/O file. 

Writes data from specified variables 
to a stream I/O file. 



^ 
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Chapter 3. Changing the Sequence of Execution in Your BASIC Program 
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In this chapter, the following topics are discussed: 
o Using loops to do the same calculations repeatedly 

• Using functions or subroutines to do the same operation several 
times 

• Changing to another BASIC program from a program currently being 
executed 



LOOPS 



Suppose you want to display credit amounts of $100 to $5000 in 
increments of $100, along with the monthly finance charge of 18% per 
year (.015 per month). You could do it simply enough by writing the 
following statements: 



010 PRINT 10 

020 PRINT 200 

030 PRINT 30 

OOM-0 PRINT MOO 



1 « . 1 5 

2 ■»■■ . 1 5 

3 ■■><.■ . :l. 5 
^■ X: . 1 5 
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1-!- 9 P R I N T '•!• 9 , '•!■ 9 ■)'■■ , 1 5 
3 P R !!: N J 3 0, 3 x.- . 1 3 

Although this technique works correctly, it is time consuming and 
tedious. In displaying an amount and its finance charge for all 
amounts from 100 to 5000, what we are really doing is performing the 
same operation repeatedly, but using different numbers each time. 
Calculations that are to be repeated can generally be done efficiently 
by a simple programming device known as a loop. 
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Here's a concise method of performing the same operations shown 
previously: 

010 F>-^!. 

020 PRINT P;P^t. 0:1.5 

30 p""P«":i. 

"10 GOTO 2 

Here, we have created a loop in statements 20 through 40. When the 
program is run, the PRINT statement will be executed once each time 
the value of P increases by 100. The statement that makes the loop 
possible is the GOTO statement. It alters the normal sequence of 
execution by directing the computer to execute a different statement. 
It does this by referring to the number of that statement. The 
statement GOTO 20 directs the computer back to statement 20, which 
displays the value of P and its finance charge. Statement 30 then 
increases the value of P by 100, and statement 40 is executed again, 
branching the program back to statement 20. 

There is one problem with the loop we have shown here: there is no 
provision for ending the loop. Consequently, not only will we get 
results for values from 100 to 5000, but also for 5100, 5200, and so 
on, unless we take some action to stop execution. In this program, we 
want the loop to end after we reach the value 5000, or, put another 
way, we want the loop to continue as long as P is less than or equal 
to 5000. To provide this action, we should build into the loop a test 
from some condition, so that when the condition is met, the loop will 
end automatically. 



Using the IF Statement 

An IF statement says it quite concisely: 

010 IF' P::;50 GOTO 2 

This IF statement says that if P is less than (<) or equal to (=) the 
value 5000, the program is to branch to statement 20. Here we have 
incorporated the GOTO statements into the IF statement. Let's put this 
new statement into the program and see what happens: 

0010 P--10 

020 PRINT P,P^-^.015 

30 P""P 4-1 

OO'iO IF P:!;5000 GOTO 20 
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AS long as P satisfies the condition, P less than or equal to 5000, 
execution will loop back to the PRINT statement. However, when P no 
longer satisfies the condition-when P is greater than 5000-the loop 
will end automatically and the execution will fall through the IF 
statement to the next statement, which in this case is an END 
statement signifying the end of the program. 

The IF statement has many applications, some of which can be quite 
sophisticated, depending on the condition tested in the statement. For 
example, conditions such as the following can be tested: 

0:1.6 IF A""0 GOTO 60 
0:170 IF" A:^M) GOTO 60 
0:1. 8 IF B-X/Y<Zt2 GOTO 8 

The first example is quite simple: if the value of the variable A is 
equal to 0, branch to statement number 60. The second statement 
tests the same condition as the first statement, but substitutes the 
word THEN for GOTO. In the IF statement, THEN and GOTO have 
exactly the same meaning. The third statement makes a test between 
two sets of expressions. The first expression evaluates B-X/Y. The 
second expression evaluates Z+2. If the value of the first expression 
is less than (<) the value of the second expression, the program is to 
branch to statement 80. 



) Relational Operators 



The IF statements illustrated in these examples used the symbols <, >, 
and =. These symbols are part of a set of operators called relational 
operators. Relational operators are used only in IF statements; they 
test the relationship between two expressions. It is important to note 
that relational operators do not perform any arithmetic operations. 
They simply test whether or not a condition is satisfied. For example, 
in statement 40, the equal sign does not mean that P is to be given 
the value 5000; it tests whether the value already assigned to P equals 
5000. If a condition is satisfied (if P does equal 5000 in this example), 
then the condition is considered true. If a condition is not satisfied (if 
P does not equal 5000), the condition is considered false. Thus, a 
relational operator says that if the condition being tested is true, the 
action specified is taken; otherwise, the action is not taken. Reviewing 
this concept using the example IF A = GOTO 60, if the condition is 
true (A does equal 0), then the branch to statement number 60 is 
made; otherwise the branch is not made. Instead, the program 
continues with the next statement in sequence. 
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The relational operators and their definitions are: 

Operator Meaning 

= Equal to 

< > or ?i Not equal to 

> Greater than 

> = or> Greater than or equal to 

< = or < Less than or equal to 

Here are some examples: 



030 IF A""B GOTO 50 

:!. 9 ;i: r- • p r i h j " < ' p r i z i;;; ■ g o t q 3 o o 

80 IF A$y<^D$ GOTO '^190 



In the first example, a test is made between the values contained in 
the arithmetic variables A and B. The second example illustrates 
comparison of character data. For character data, a comparison is 
made according to the EBCDIC collating sequence of each character in 
corresponding positions in the constant. In other words, the first 
character of one constant is compared to the first character of the 
other constant, the second compared to the second of the other, and 
so on. In this example, the first three letters of the constants compare 
equal, but when the letter N is compared to Z, they compare unequal. 
The letter N, occurring before the letter Z in the alphabet, registers 
less than in the collating sequence. At this point, the condition tested 
would be met; that is, the character string PRINT is indeed less than 
PRIZE. 

In the third example, character variables are compared. Let's assume 
that the variable A$ contains the value ON and the variable D$ 
contains ONLY. The first 2 characters match, but when the letter L is 
compared to a blank, which is assumed for comparison purposes, they 
do not match. Thus, the result in this case would also be true, 
because the value of A$ is not equal to the value of D$. If, however, 
A$ and D$ do contain matching strings, say both contain the 
characters ONLY, then the test results would be false-A$ and D$ 
would be equal, thereby not satisfying the condition of the test. 



V. 
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Logical Operators 

The example IF A = B tests the relationship between two expressions. 
Suppose, however, that you wish to take action if more than one 
relationship is true. For example, suppose that not only must A equal 
B but also X must equal Y. You could make these comparisons by 
using the logical AND operator, written as & : 

OOi-l-O IF A""BaX""Y GOTO 100 

Statement 40 says that if A equals B and X equals Y, then statement 
100 is executed. If only one comparison, or neither comparison, is 
true, program execution continues with statement 60. 

The IF statement can specify two logical operators: 

Operator Meaning 

& AND 

I OR 

The AND operator states that both conditions of a test must be true 
for the entire expression to be true; the OR operator states that either 
condition (or both) must be true for the expression to be true. 

If you want to branch to statement 100 if either A equals B or X 
equals Y, you could write this statement: 

OOi^n IF A""B2X""Y GOTO 100 
Here are other examples of the AND and OR operators: 



7 
8 



] IF C$>D$S J$^===K$ GOTO 50 

) :i: !•• H 1 F A 2 ft J $ > ' C A T ' G T 3 



The first example tests an OR condition using character variables. It 
says that if the value in the variable C$ is greater than the value in D$ 
or if the values in J$ and K$ are equal, then a branch is made to 
statement 50. 

The second example tests an AND condition using mixed variables. It 
says that if the value in the arithmetic variable A1 is not equal to the 
value in A2 and the value in the character variable J$ is greater than 
the character string CAT, then the program is to branch to statement 
300; otherwise, program execution is to continue with the next 
sequential statement. 
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THE COMPUTED GOTO STATEMENT 

The computed GOTO statement is a version of the GOTO statement 
that gives you the ability to branch to different statements during 
various stages in a program. 

A computed GOTO could look like this: 

0100 GGIG 3 0,1.1.0,5 ON J 

A branch is made to statement 30, to statement 40, or to statement 
50, based on the integer portion of the value contained in the variable 
J. The integer portion may contain a value of from 1 to 3. If the value 
is 1, a branch is made to the first statement shown in the list, 
statement number 30. If the value is 2, the branch is to be the second 
statement, number 40. If the value is 3, the branch is to the third 
statement, number 50. If the value is greater than or equal to (>) 4 or 
less than (<) 1, program execution falls through to the statement 
following the computed GOTO statement. 

The expression determining the branch to be made can be a simple 
variable, such as J above, or a more complicated expression, say (A + 
B) / 2. If such an expression were used, its computed value would 
determine the branch to be made. Consider this example: 

50 GOTO 20 , 220 , 1 00 , 2M0 GN (A^D)/2 

The expression (A + B) / 2 is evaluated, and a branch is made to 
statement number 200, 220, 100, or 240, depending on whether the 
value is 1, 2, 3, or 4, respectively. Note also that the statement 
numbers shown in the list do not have to be specified in sequential 
order; that is, statement number 100 can be the third number in the 
list even though it is a lower number than the others. 



More about Loops-Using FOR and NEXT Statement 

A still more concise method of specifying a loop is by using the FOR 

and NEXT statements. For example, our program for finding and /^'^"^ 

displaying the finance charge for $100 to $5000 could be further v..-- 

simplified to look like this: 

0:1.0 FOR P""! TO 50 STEP :l. 

02 PRINT P.P^f. 015 

03 NEXT P { 
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The FOR statement identifies the beginning of the loop; the NEXT 
statement identifies the end of it. In between is the statement, or 
sequence of statements (we need only one for this example) that will 
be executed repeatedly until the specification in the FOR statement has 
been satisfied. 

In our example, the FOR statement specifies that the statement in the 
loop (the PRINT statement) will be executed repeatedly for successive 
values of P from 100 through 5000. (An increment of 100 is added to 
P for each execution of the NEXT statement.) When the value of P 
exceeds 5000, execution of the loop is ended, and control is passed to 
the next logically executable statement following the NEXT statement. 
In this case, the following statement is a STOP statement denoting the 
end of the program. However, other statements could precede it, or 
the NEXT could be the last statement prior to the STOP. 

The increment is always 1 unless it is explicitly stated to be otherwise; 
for example: 

0:1.0 FOR P"-:!. TO 50 STEP 20 

This FOR statement explicitly states an increment (or step) of 200. 
Thus, the statement(s) in the loop will be executed once for every odd 
multiple of P from 100 to 5000 (that is, the range is 100, 300, 
500,. ..4900). When the value of P exceeds 5000 (that is, when it 
reaches 5100), execution of the loop will end. The value of P will be 
set back to 4900 before the next logically executable statement is 
executed. 

If you want to execute the loop once for every even multiple of 100 to 
5000 (that is 200, 400, 600,. ..5000), you would say the following: 

0010 FOR P""2 TO 50 STEP 20 

Again, when the value of P exceeds 5000 (in this case, when it 
reaches 5200), execution of the loop will end. The value P will be set 
back to 5000 when the next logically executable statement is executed. 

As with expressions appearing in assignment statements and in the 
body of PRINT statements, the specifications in FOR statements can 
be quite complicated. For example, the following FOR statements are 
permitted: 

30 FOR I ""A TO B 

OO'i-O FOR J""8otM-fY TO At3 

5 !•■■ R !< "" S (J R ( B ) •••• C J 550 S T E P A / B 1 2 
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The first example states that the initial value of I is to be taken from 
the variable A and that the loop is to be executed repeatedly until the 
value exceeds the value of B. The second example states that the 
initial value of J is the value of the expression 8 * M + Y, and the loop 
is to be executed until this value exceeds the value of A ** 3. The 
third example states that the initial value of K is to be the square root 
of B minus C; the loop is to be executed until the value 550 is 
exceeded, and each time through the loop the value of K is to be 
increased by the value of the expression A / B + 2. 



V...,. 



You can also use more than one set of FOR/NEXT statements 
together in a program by nesting one loop. Let's look at a program 
that computes compound interest and uses nested FOR loops in the 
process. 

The mathematical formula to compute compound interest is: 



A = p I f±^ 



1 +B. 
100 



where A is the amount to be calculated, P is the principal, R is the rate 
of interest, and T is the time period. 



The program below shows how you can enter any amount as the 
principal (P), compute interest on it using interest rates from 1 % to 
20%, for each of 10 years, and display all the amounts-a total of 200 
values. 



v_,. 



090 PRINT "ENTER PRINCIPAL" 

i. INPUT P 

L 5 P R I N T ' T 1 M E " , ' R A ' I E. " ; ' A M 1.1 N T 

1.10 EOR T:^^=l TO 10 

12 FOR R::"l TO 2 

1.3 A""Poo( l-fR/lOu ) tT 

Ul-O PRIHT T. R, A 

i.5 NEXT R 

1.6 NEXT T 



Statement 130 duplicates, in BASIC terms, the compound interest 
formula. The FOR statement numbered 120 and the NEXT statement 
numbered 150 delimit one loop. The first time through the loop, the 
value of R, the rate variable, is set to 1. When NEXT R is reached, R 
is incremented by 1 and the statements are executed again with the 
new value of R. Each time through the loop the PRINT statement 
prints time, rate, and amount values. This process continues until R 
reaches 20 and the loop is ended. 
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However, this loop is enclosed, or nested, within the loop delimited by 
the FOR and NEXT statenrients numbered 110 and 160. This outer loop 
changes the value of T, the time variable, from 1 to 10. Each time the 
value of T changes, the inner loop cycles through 20 times changing 
the value of R. Since T changes value 10 times, the loop changing the 
value of R is executed 200 times. Each time, the PRINT statement 
prints new values. 



A nested loop is one that is enclosed by another loop. That is, the 
FOR/NEXT statements of one loop occur between the FOR/NEXT 
statements of another loop, as illustrated: 



Outer 
Loop 



Nested 
Loop 1 



Nested 
Loop 2 



010 F-OR P 
010 F-OR R 
0120 FDR T 



015 NEXT T 

016 NEXT R 

017 NEXT F 



FUNCTIONS AND SUBROUTINES 

As part of the BASIC language, you can define functions or write a 
program segment, called a subroutine, which you expect to use several 
times in your program. 

Functions 

User-written functions can be arithmetic or character. An arithmetic 
function is named by the letters FN followed by a single letter. A 
character function is named by the letters FN followed by a single 
letter and the currency symbol ($). 

The following can be names of arithmetic functions: 

FNA 
FNB 
FNR 
FN# 
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The following can be names of character functions: 

FNA$ 
FN#$ 

A user-written function is named and defined by the DEF statement. 
For example: 

;!. ij I;:: !•• F N i;- < x > -- 1:;: x i-* < x 1 2 > 

defines the natural exponential of X squared, using the intrinsic 
function EXP. The arithmetic variable X, enclosed in parentheses after 
the function name FNE, is called a dummy variable. You can have 
more than one dummy variable, and the list of variables can contain 
both arithmetic and character dummy variables. (The expression value 
substituted for each dummy variable is called an argument.) After 
defining a function, the function name and its accompanying 
argument(s) can be used anywhere in your program. For example: 

010 DEF FNE (X) ■■"■■ EXP (Xt2) 



OGlV'O Y "" FNE ( . 5) 

60 Z "•• FNE <Cf2) 

070 PRINT FNE ^3.75)•^Y/Z 



User-defined functions can be defined in one statement or over a 
group of statements. A function defined in one statement, such as the 
function illustrated above, is called a single-line function. A function 
defined over many statements is called a multiline function. A 
multiline function begins with the word DEF, the function name, and 
any arguments, the same as single-line functions. However, the DEF 
statement does not contain the equal sign or an expression. Rather, 
the value of the function is developed by the statements following the 
DEF and is defined in a RETURN statement, which computes the value 
and returns the value to the program. The end of a multiline function 
is defined by the FN END statement. Here is the way the statements in 
a multiline function must be sequenced: 

DEF function name [(variables, if any)] 



v.. 



r 



r 



RETURN expression 



FNEND 
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Here is an example of a multiline function: 

03 DEF F"Nh < X , Y) 

OO'lO IF X>0 a Y>:l. GOTO 60 

050 GOTO 65 

06 RETURN X-^Y 

065 RETURN X--Y 

007 FN END 



This function uses two dummy arithmetic variables (X and Y) as 
arguments. The function tests the values of both arguments. If X is 
greater than 0, and Y is greater than 1, the values are added and the 
sum is returned to the program. If the values do not satisfy the tested 
conditions, program control transfers to statement 65. If this function 
were used in the following program, C would have a value of 7 and D 
would have a value of -2. 







030 DEF FN A ( X , Y ) 

iio :i:f x>o a y>:i. ggto 6 

5 GOTO 65 
06 RETURN X-vY 
065 RETURN X-Y 
70 FMEfrD 



LOO 



l.3( 
I.M( 



B""2 

) C--FNA (A,B) 
D--FNA (0.2) 
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Subroutines 



Another way of writing a group of statements to be executed at 
different times in your program is to group them into a subroutine. 
Execution of a subroutine begins with the GOSUB statement, where 
the number specified in the statement specifies the number of the first 
statement in the subroutine. For example: 

100 GOSUB 200 



causes the computer to skip, or branch, to statement 200, the first 
statement in the subroutine. Program execution continues from that 
point. To cause the computer to branch back to statement 100 
(actually, to the next sequential statement following statement 100), 
the last statement of the subroutine must be a RETURN statement. 
This RETURN statement, unlike a RETURN used with a function, 
contains no expression. A program containing a subroutine could be 
sequenced like this: 



r—lOO 
-110 
120 
130 
140 
150 
160 
170 
180 
190 
-200 
210 
220 
230 
240 
250 
■260 
270 



GOSUB 200 



STOP 



These are the statements that wil 
be executed after the RETURN. 



First statement of the subroutine. 



Statements executed as part of the 
subroutine. 



RETURN 
END 



Statement 100 branches to statement 200. Statement 260 returns 
control to statement 110. Statement 190 tells the computer the end of 
the program has been reached. The STOP statement is similar to an 
END statement except that higher-numbered statements may follow it. 
Its use is to denote the end of program execution when the logical 
conclusion of the program occurs somewhere in the middle of the 
program, as shown here. The STOP statement here is equivalent to 
writing GOTO 270. 
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A program illustrating the use of a subroutine is shown below. This 
program determines the greatest common divisor of three integers. 
The first two numbers are selected in program statements 30 and 40, 
and their greatest common divisor (CD) is determined in the 
subroutine, statements 200 through 310. The CD just found is 
assigned to X in statement 60. The third number read in from the 
INPUT statement is assigned to Y in statement 70. The subroutine is 
' \ entered a second time from statement 80 to find the greatest common 

J divisor (CD) of these two numbers. The result is, of course, the 

greatest common divisor of the three given numbers. It is displayed 
with them in statement 90. 

(i (i :!. i j p R :i: N r ' i;- n 1 1;:: r t i-i r i;;: i;;: i n i £ q e r s ' 

^y 02 INPUT A,B,C 

30 X""A 
0'!-0 Y""B 
015 GOSUB 20 
60 X^^Mw 
07 Y::^=C 
080 GO SUB 20 
090 PRINT • A" , "B* , 'C" , "CD' 
95 PRINT A,B,C,G 
010 STGP 
02 q"=^i:NT(X/ Y) 
02:1.0 R""X-Q^i-Y 
22 IP' R""0 GGTG 30 
23 X""Y 
02M-0 Y::==R 
25 GGTG 20 
030 G""Y 
0310 RETURN 
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Let's assume these numbers are entered when the INPUT statement is 
executed: 

ENTER THREE INTEGERS 



? 
60,90,120 

The output will be: 






1 19 


37 


5S 


A B 
60 90 


120 


CIJ 
30 



(print positions) 



Another example of input and resulting output is: 

ENTER THREE INTEGERS 

'? 
32,38M-,72 

A B C CD 

32 38'-i- 72 8 



COMPUTED GOSUB STATEMENT 

The computed GOSUB statement is similar to the computed GOTO 
statement discussed in this chapter. They both cause a branch to one 
of a number of statements based on the computed value of an 
expression. The difference between the two statements is that the 
GOSUB branches to a subroutine; the RETURN statement in the 
subroutine returns program execution to the statement following the 
computed GOSUB statement. 

Consider this example: 

(! 3 G S U B :l. 2 ; J. 7 5 ,195 G N X •••• Y 

A branch is made to one of three subroutines, either the one 
beginning with statement 120, the one beginning with statement 175, 
or the one beginning with statement 195, depending on whether the 
integer portion of the value contained in the expression X - Y is 1,2, 
or 3, respectively. If the expression X - Y results in a value other than 
1, 2, or 3, program execution continues with the statement following 
the GOSUB. 
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PROGRAM CHAINING 

With the program chaining technique, a BASIC program can be shared 
with other BASIC programs. For example, suppose that when writing 
a program you discover that an operation you want to perform is 
available as a separate program. It could be time saving to you to be 
able to use that program in conjunction with the one you are currently 
writing. The CHAIN and USE statements can help you access data and 
execute that program. 

The CHAIN statement is used in one BASIC program to tell the 
computer to stop executing the current program and start executing 
another BASIC program. To tell the computer which program to start 
executing, you name it in the CHAIN statement. Here's an example: 

050 c.ha:i:n 'dmo' , • progb' 

This statement instructs the computer to begin executing the program 
(in diskette drive 2) named PROGB. Note that when the CHAIN 
statement is executed, the current program (the program containing 
the CHAIN statement) is terminated. 

Variable values in the chaining program are passed to the chained 
program; that is, they become accessible for use in that program only 
if they were defined in a USE statement. 

In the program being chained, the USE statement specifies a list of 
variables that will receive the values passed from the CHAIN 
statement. For example, the value passed by J$ to PROGB can be 
received by PROGB in the statement: 

020 USE l<$:l.B 

Note that the USE statement is written in both programs and the 
CHAIN statement is written in the chaining program (the program 
requesting execution of another program). The USE statement must 
be the first statement referencing a variable in each program. 

The CHAIN and USE statements derive their value in being able to 
help you string two or more programs together instead of having to 
code similar program sections for individual programs. Also, CHAIN 
and USE statements allow you to segment large programs. The 
following is an example of CHAIN and USE. 
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0:!.0 REM THIS IB PROG A 
020 USE J$ 



030 CHAIN 'DM-0' > ' PROGB' 
0010 REM THIS IS PROGB 



Chaining program 



V 



0150 USE l<$ 



Program being chained 



The CHAIN statement at 0300 of PROGA causes PROGB to be loaded 
into storage, then execution transfers to PROGB. The value in J$ of 
PROGA is passed to K$ as specified by the USE statements in both 
programs. 
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The PRINT USING FLP statement is useful for controlling the format of 
a report. PRINT USING FLP is used in conjunction with an Image or 
FORM statement or character variable to print values according to the 
format specified by the statement or variable. The PRINT USING FLP 
statement includes the values to be printed and the statement number 
or character variable of a corresponding Image or FORM statement 
that specifies the format of the print line. For example: 

030 PRINT us:i:ng 1|-0,FLP,N,A 

This statement refers to statement number 40, an Image or FORM 
statement, which will cause the computer to format the arithmetic 
variables N and A on the print line. 



PRINT USING AND THE IMAGE STATEMENT 

Statement 40 could look like this: 

oo'io ; m nn YRS M'Vr ===: $=j^^h^}j . =jh^ 

The colon beginning statement 40 identifies it as an Image statement. 
The alphabetic characters are printed exactly as they appear in the 
statement, and the pound sign (#) is the symbol used to indicate that a 
value will be supplied from the output list in the PRINT USING 
statement. The value of N replaces the first set of #'s, and the value 
of A replaces the final set. The decimal point in the final set indicates 
that the value of A is to be aligned on the decimal point in the image 
specification. 

If N contains the value 10 and A contains the value 1628.88, the 
output line produced by statements 30 and 40 would look like: 

IN 10 YRS AMI :=== $16 28. 8 8 

In the Image statement, the pound sign (#) is used as a placeholder. 
In statement 40, the first set of #'s indicates that a value is to be 
displayed using two positions; the second set displays a value over six 
positions aligned on a decimal point between the fourth and fifth 
positions. If the value to be printed is smaller than six digits (say the 
value 300.40), the first, or high-order position, would be printed with a 
blank. Excess decimal positions are rounded to the number of decimal 
position # signs. 
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The Image statement can also contain a placeholder consisting of the 
symbols II II for an exponential value. If you want to print a value 
containing an exponent, the Image statement could contain the 
following sequence of symbols: 



m^ . m I I II 

This sequence states that a value is to be printed with four digits 
followed by an exponential value. An exponential value is always 
printed with four positions for the format: E±dd. The letter E is 
followed by a plus or minus sign indicating a positive or negative 
exponent, followed by two digits. Therefore, a set of four I s must 
always be specified as placeholders for exponents. If an Image 
specification contains this sequence: 



V, 



#^^.M^H I ! I 

the following shows how different values would be printed by that 
sequence: 



Value 



Printed Format 



Z6 

2.3 

:l.23 



:l.2.30E-^o:l. 

:l.2.30EK)0 
12.30E-02 



The specification calls for four digits to be printed aligned on the 
decimal point. Therefore, the number 123 is represented as 12.30 with 
an exponent of +1. The exponent tells us two things: the direction in 
which the decimal point is to be moved {+, to the right, and -, to the 
left), and the number of digits over which it is to be moved. In the 
first example, the exponent +1 tells us to move the decimal point one 
position to the right; the number 12.30E+01 is the same as 123. In the 
second example, the number 12.3 can be aligned on the decimal point 
with no action required by the exponent, hence an exponent of E+00; 
the number 12.30E+00 is the same as 12.3. The third example tells us 
to move the decimal point two positions to the left; 1 2.30E-02 is the 
same as .123. 

Blank positions in an array referenced by a PRINT USING statement 
are significant. The entered characters of a variable do not determine 
the size of the variable to be used by the PRINT USING statement. 
For example, with a variable A$ dimensioned to 30 for the entry of a 
name, and the name C. A. JONES entered into the variable, the PRINT 
USING statement will use all 30 positions of the variable, including the 
blank positions. 



36 



Note that a PRINT USING statement can be ended with a semicolon (;) 

Oto suppress printing of a new line and cause subsequent printing to 
occur on the same line, as shown in the following example. 

Example: 

n 1 n p R I N T ■ i:;: N T i;:: R "\ Q day' ' s n a t e ■ 

( ^) 020 INPUT m 

V-y 030 r* I^ I N T U S I N G '•!• , !■• 1... I'M" ^l> ^ _ _ 

OO'-lO ; MONTHLY SALES BY SALESMAN AS OF ?HHHt I? ?? t^ ?? 

oo^jo print FLP 

60 print flp 

07 PRINT USING lOOJ-LP 

OOSO PRINT USING IIO J- LP, ; 

09 PRINT USING I2 0J--LP 

1. ; S A I... E S M A N S A L E. S M A N 

:|. :l. : N A M E NUMB t;;: R G R S S S A L E S 1::. X P I::. N S 1;:. 'r 

012 ; NET SALES 

013 PRINT FLP 

1 M- 1-^ R 1 N T ■ E. N T E. R S A L E S M A N ' ' iii N A M E ' 

1 5 i" R I N r ' G R E N T E. R E N B T G E N B " 

0160 INPUT A$ 

0170 IF A$-^'ENB' GOTO 300 

1 s p R :i: N r ' i:;: n t e r s a i... e s m a n ' ' s n u m b e. r ' 

019 INPUT B 

2 P R ;i: N T ' E. N T E. R ( -i R G S S S A L E. S ' 

0210 INPUT A 

022 !•' R :i: N T ■ i;;: n t e r e x p e n s e s ' 

23 INPUT B 

02'iO G--A--B 

250 P R I N T U S :i: N Ci 27 0, E L !•' , A $ , B , A , B ; 

26 P R I N T U S I N C^ 2 B , E 1... P .. C 

0270 : i^t^?i^^i?^H??^?^#?HH?¥?^? nm $^Hnn^.?n^ %nn^^.nu 

2S0 ; :MHt¥H¥ . ¥¥?¥ 

29 GGTG I'l-O 
030 STOP 
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In this sample program, statements 40, 100, 110, 120, 270, and 280 
are Image statements used to format the printed report shown below. 

nUNTHLY SALES BY SALESMAN AS OF 1 n/:l.9/77 



orLLSMA^. 
NAM E 



B. i'-reder: 

A , JuHNSOi 
D. SMITH 



SALESMAh 
NUMBER 



5'.'';! 
MS? 



GROSS SALi;; 

;!;'v67S . uo 
$ 2 '5 3 '■!• , 
$S56'I , 
$53i-l-6 , 



XPENSES NET SALES 



, i 



) 
iO 
Hi 



$3326 . 
$2382 , 
$ S 3. 
$ i| 99 . (i 



v.. 



PRINT USING AND THE FORM STATEMENT 

The FORM statement, offers greater formatting capabilities than the 
Image statement. For example, it provides a special code to specify 
character data. It contains format control specifications to tell the 
computer how to position output on a print line; one of these 
specifications, SKIP, must be coded on the FORM statement to cause 
a line to be printed. 



Numeric Specification-PIC 

The PIC specification in the FORM statement shows a picture of the 
way a number should be formatted. This picture is enclosed in 
parentheses. The symbols #, ., and I, previously illustrated in the 
Image statement, could be used in the FORM statement in this format: 



Piarn^ jmi n i ) 
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You recall that the # symbol is used as a placeholder for a digit and 
the I symbol is used as a placeholder for an exponent. The PIC 
specification has these additional placeholders, or digit specifiers: 

Symbol Meaning 

Z A leading zero is to be 

replaced with a blank. 

* A leading zero is to be replaced 

with an asterisk. 

$ Floating dollar sign. A dollar sign 

is to be printed immediately 
before the first significant digit. 

+ Floating plus sign. A plus sign for 

a positive number, or a minus sign 
for a negative number, is to be printed 
immediately before the first 
significant digit. 

Floating minus sign. A minus sign 
for a negative number, or a blank 
for a positive number, is to be 
printed immediately before the first 
significant digit. 

Here are examples of digit specifiers. Assume that a data item 
containing the value 112233 is to be printed. 

PIC Specification Printed Output 



F I Z ( i? H ¥i Vi ¥i # ^ ¥i ¥i ) (3 1 12233 

p:i:c(zzzzzzzzz) 112233 

p:i:c(zzzzzz?HHn 112233 

P 1 C ( ^V V: ■)<■ ¥: ¥: V: ¥t " vt ) '>'■ ■>'■■ ^^ j. j. 2 2 3 3 

PIC ($$$$$$??????) $112233 

p ;|; Q { .x. .|. 4. .^. .>,. -i- ii i^ ^i ) .f j ;i. 2 2 3 3 

PICC IHHHHHn 112233 



If a floating character (dollar sign, plus sign, or minus sign) is specified 
only once at the start of a PIC specification, it does not float through 
the field but instead is printed in the indicated position. For example: 

PIC Specification Printed Output 

p:i:c($zzzzz^H^?n $ 112233 

P1C< •^ZZZZ??^*? ) ■''■ 112233 
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The PIC specification can also contain insertion characters to edit a 
printed item. Digit specifiers indicate how the number itself is to be 
treated; insertion characters simply insert additional characters into a 
field, generally to improve readability. The following insertion 
characters can be specified: 

Symbol Meaning 

B Print a blank unconditionally. V 

Print a comma conditionally (only if 
a digit precedes the comma). 

/ Print a slash conditionally (only 

if a digit precedes the slash). 

Print a decimal point conditionally 
(if the value to be printed is 
nonzero or zero suppression (Z) 
is not in effect). 

+ Trailing plus sign. When the 

+ appears in the rightmost 
position of a PIC specification, 
it is treated as a trailing sign. 
A plus sign is printed for a 
positive number, a minus sign for 
a negative number. 

Trailing minus sign. When the - 
appears in the rightmost position 
of a PIC specification, it is 
treated as a trailing sign. A 
minus sign is printed for a 
negative number, a blank for a 
positive number. 

CR When the characters CR or DB appear 

DB at the end of a PIC specification, 

they are treated as a trailing 

sign. CR or DB is printed for a 

negative number; blanks are printed 

for a positive number. 
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Here are examples of insertion characters added to the examples 
previously shown: 

PIC Specification Printed Output 

p:i:c(^t#*^B*H^B^HnHn oao :i.:i. 2233 

p:i:c(zzzBZZBZ***Hn :i.:i. 2233 

I p:i:c ( zzz , zzz , mm > 1 :i.2 . 233 

p:i:c(zzzzz/z^^/^Hn :i.:i./22/33 

p :i: c ( «•)(••)•>■)(••)(■ K-^^ .mi) «• :i. 1 2233 . 

p I c ( $ $ $ ^li $ $ n ii Yi i- ) $ :i. :t. 2 2 3 3 •:• 
p:i:c ( $$$ , $$$ , $$$ . nn ) $:i. :i.2 , 233 . 

In the first example, a blank is entered after the third and fifth digits. 
y Because # is denoted as the digit specifier, leading zeros are not 

suppressed. 

The second example illustrates the blank used with the Z digit 
specifier, which does suppress leading zeros. 

The third example illustrates the use of commas. The first comma is 
not printed because no digit precedes it (zero suppression having been 
specified); the second comma is printed. 

The fourth example inserts slashes. 

The fifth example illustrates the effect of a decimal point; because the 
number 112233 is an integer number, it is aligned on the decimal 
point, and zeros print out in the decimal portion of the field. 

The sixth example adds a trailing sign to a field that also contains 
floating dollar signs. 

The last example adds commas and a decimal point to format a dollar 
amount. Note that the first comma is not printed, but its absence is 
marked by a blank, as it was in the third example. The dollar sign 
floats over the comma. 



Character Specification~C 

Unlike the Image statement, the FORM statement specifies a place 
where character data is to appear, indicated by the specification code 
C. The actual character data is written in the PRINT USING statement. 

To print both character and numeric data, a PRINT USING statement 
could be written like this: 

0030 PRINT USING 50 , 1~LP, " COST OF '; A:l. ," CHAIRS IS'.BI 
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The corresponding FORM statement could look like this: 

ooso FORM cpiam) , c, p:i:c<$ii>$, $$# . ^nn 

The first appearance of the letter C indicates that a character string 
from the PRINT statement is to be printed. The first PIC specification 
describes the arithmetic variable A1 ; if the value is zero, a blank is 
printed in the leftmost position, followed by a zero. The second C 
describes the second character string, and the second PIC describes 
the variable B1 . 

The C specification code marks a place for character data regardless 
of the number of characters to be printed. You could specify the exact 
number of characters to be printed by indicating the number after the 
C code. For example: 

C6 

This specification indicates that 6 characters are to be printed. Care 
should be used when specifying a number because only that number 
of characters is printed. For example, if you specify C6 to print the 
character string COST OF, only the characters COST will be printed. 

Format Control Specifications-X, PCS, SKIP 

Format control specifications provide flexibility in formatting an output 
line. These specifications allow you to space over a number of print 
positions on a line, to specify the print position where a data item is 
to begin printing, and to skip print lines. 

The Xn specification spaces over n print positions. For example, XI 
causes the printer to space the next 10 positions before printing a data 
item. 



^_ 



V .' 
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The POSn specification prints a data item beginning in position n. For 
example, POS50 causes the next data item to print beginning in 
position 50. 

The SKIPn specification skips n print lines. To skip five lines, specify 
SKIP5. To skip to the next line, specify SKIP1 or SKIP with no 
number. For example, to cause statement 50, shown earlier, to print a 
line, SKIP must be added to it: 

5 i) !•• R M C , P 1 CCZ^i) , C > P I C: < $ $ $ , $ Hi ^^,m) ., 8 1< X ? 

Statement 50 is now complete, and if combined with PRINT USING 
FLP statement number 30, 

3 ? R I N r IJ 8 1: N G 50, F I... ? , ' C 8 T F ' , h1 , ' C l-i A 1 R 8 1 S' j!' 1 
results in this output: 

c : 8 r C) r- :i. m- c: i-i a :i: r 8 :i: 8 $ i , 5 :i. o . o o 

Here are additional statements using format control specifications: 
Example 1 : 

:i. i-i- {) p R I N r u 8 :i: n g i ^■ 5 , i-" i... p . a i , b :i. 

1 I-i- 5 F R M i-^ c) 8 :i. s , r^ I c: ( z I?) , p o 832, p ;i: c: ( $ $ $ , $ $ #.#??>, 8 1< :i: i-^ :i. 

Statement 145 uses the POS and SKIP control specifications. P0S15 
positions the printer at position 15 before printing the value contained 
in A1 described by the PIC specification. POS32 begins printing the 
value of B1 at position 32. After all printing is complete, SKIP1 causes 
the carriage to skip to the next line. 

Example 2: 

ij 1 :l. P R 1 N T U 8 1 N G 1 :l. 5 , F I... !•' , ' C G 8 T G F ' , A 1 , ' C; I-I A 1 R 8 1 8 ' . B J. 

:i. 1 5 I" R M X 5 , C ; P G 8 1 5 , P I C(7M) , P 8 2 , C , P 832, I--' 1 C < $ $ $ , $ $ # , ?hO , 8 i< 1 P 1 

In statement 115, X5 states that the first five positions of the print line 
are to be skipped, and the character data controlled by the C code, the 
string COST OF, is to be printed. P0S15 prints the value of A1 
beginning in position 15. POS20 prints the character string CHAIRS IS 
beginning in position 20. POS32 prints the value of B1 beginning in 
position 32. SKIP1 causes the line to be printed. 
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Following is a program that uses these statements. 

010 M.^^15 

010!^ B:i.==::A:iJt:i.:i.i:i.25 

:l. :i. 1-^ R 1 N T U 8 J. N G »i , F" I... P , ' C S T F " , A 1 , ' C: i-j A I R S I S ' ^ B J. 

:l. :l. 5 F QRH X 5 , C , P S 1 5 , P 1 CCZ^D > P S 2 , C: , P Q <;> 3 2 , P 1 C ( $ $ $ , ■!> $ ^^ ^HH , S K 1 P 1 

0:1.2 FOR A 1 =:== 1 M- TG 1 STEP -•:!. 

0130 Bl^:=:A10ill5.25 

1. '^■ p R I N T u s :i: n g i ^■ 5 ; f l p ; a i . b i 

1 1|- 5 F R M 1-^ (J S 1 5 , P 1 C: ( Z ^? ) ; i^^ C) 832, P 1 C ( $ $ $ , $ $ ^t . tHH , S !< I P 1 

0150 NEXT Al 



This program finds the cost of 1 to 15 chairs at $115.25 each. 
Statements 110 and 115 print out the first line, statements 140 and 
145 print out all succeeding lines based on the loop defined between 
statements 1 20 and 1 50. 



Output from this program will look like this: 
Print Position 6 15 20 
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COST OF 15 CHAIRS I 
1 1 1- 



1 it 



1. , 728 , 
i. ,613 


75 

50 
•■■) '": 


. .1 'I- > O I 

i. , 383 
1 •••) / •".' 





i. , .•;„■:;> !' 

i. ,152 

!. ,037 

$922 


I" •...■ 

50 
25 



$8 6 
$691 
$576 


75 
5 
25 


$ii61 

•:|: ■■■' 1 1 '•■; 




■7 1::; 


$23 
$ 1 1 5 


1 •...' 

.50 
.25 
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Example 3: 



050 R-:l>==^= ■ WINS ■ 

60 IF A>B GOTO 80 

6'5 R^!>"" 'LOBES " 

70 IF" Ay^B GOTO 8 

75 R$-" TIES' 

08 PRINT USING 9 

9 FGRfi PGSI • G .■ F 



FLP. HGM!: 
■IG(Z#) .' G . 1- 



! !::.Hn 

T I"; ( 7 ¥? 



NHL ■-. 



Statement 90 uses the POS20 and C6 control specifications to overlay 
position 20 of the print line with the value of R$. If A is 3 and B is 24, 
the printed line will look like this: 



Print Position 10 



20 



28 



HOME TEAM LOSES FINAL SGORE 3--2I-I- 
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PRINT USING WITH A CHARACTER VARIABLE 

In addition to the Image and FORM statements for output formatting, f 

BASIC also allows assignment of a format to a character variable 

which can then be referenced in input/output statements. Each 

character variable to be used in this manner should first be 

dimensioned (in a DIM statement) to the length of the format. The 

format assigned to the character variable is identical to the format /^ 

following the colon in an Image statement, or the first 4 characters v^ 

can be FORM, followed by the format specifications normally entered 

for a FORM statement. The following example shows the use of 

character variables for formatting. 

r 

:l. (i u 1 M A $ 5 , B $ :i. (! , c: $ ;l. O O , if il> ;l. () (j , E $ ;l. ij "-- 

020 A $ :==^ ■ MONTHLY SALES BY SALESMAN AS OF # t? ?? ?? ?H? ?f ^r 

030 PRINT 'ENTER BATE' 

OO'l-O INPUT B$ 

OOlviO PRINT USING A$;FLP,B$ 

060 PRINT FLP 

07 PRINT FLP 

8 B $ --^ ' S A L P: S M A N S A I... li- S M A N G R S S E X P E. N S E S N E T ' 

9 C :i> "" 'NAM E NUMB I;:: R B A L E. S S A L E. S ' 

95 PRINT FLP,B$ 

96 PRINT FLP.Cil; 
010 PRINT FLP 

0110 PRINT 'ENTER SALESMAN '' S NAME OR ENTER STOP TO END' .- 

0130 INPUT N$ (^ 

01 MO IF N$""'STQP' GO TO 20 

1 5 I-' R :i; N T ■ i;;: n t e r s a l e s m a n ' ■ s n u m b e r ' 

0160 INPUT S 

:i. 7 I-* R :i: n t ' e n t e r g r o s s s a l e s ' 

180 INPUT G 

0190 PRINT 'ENTER EXPENSES' 

02 INPUT E 
0210 T--G-E 

2 2 B $ "" ' # ¥? n n ii u H ¥? n # n ?? n $ n t^ ?? ^^ , ^? u $ ^h =?? ?? ¥i . ?? n ■$ ?^ ^^ ^ u .u^v 

23 i" R j: N T U S 1 N G B $ , E L P ■ N $ , S , G , E. , T 

n2M-0 PRINT FLP 

250 GOTO 110 

28 STOP /^ 



'N 
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Printer Spacing Control 

You can use the contents of file FLS to control the number of lines 
printed per inch (see Chapter 12 for more information about file FLS). 
The printer normally prints 6 lines per inch, with 16 increments of the 
print roll per line, for a total of 96 increments. You can change the 
number of lines per inch by entering a number between 8 and 99 in 
the tenth and eleventh positions of file FLS. The number you enter is 
divided into 96 to determine the number of lines per inch. For 
example, if you enter: 



8—12 lines are printed per inch 

12 — 8 lines are printed per inch 

16 — 6 lines are printed per inch 

24—4 lines are printed per inch 

32—3 lines are printed per inch 

An entry of less than 12 will cause printing to be overlapped. An entry 
of zero causes suppression of spacing, which results in lines printed 
right over preceding lines. Sample WRITE FILE statements for printer 
spacing control are shown below: 



INE PRINTED 1 PER INCH 



i) :l. 


ypiTEFI 


02 


PRINT F 


030 


URITEFI 


ij i-i- 


FOR I-l 


ooso 


PRINT F 


6 


NEXT I 


07 


yPITEFI 


080 


FOR I-l 


090 


PRINT F 


:l. 


NEXT I 


:i. :i. 


URITEFI 


1 2 


PRINT F 


0:1.30 


PRINT F 


OlMO 


PRINT F 



LP. 'LINE PRINTED 1 PER INCH 
LE FLS, ■ 16' 

TO 6 
LP. '6 LINES PER INCH' 



Li::. |-I...b, -i. ^^ 
TO 8 

LP, '8 LINES PER INCH' 

:LE FLS, ' 00' 
• L i^' . ' N S !■* A C: E T V E R F* R 1 N 1 

\ ' OVERPRINT 

' • OVERPRINT 




5 l: 

A L" 


:nes 
i:nes 


•>ER 
PER 


INCH 
INCH 


6 1... 
6 1... 
6 L 
6 L 


i:nes 
i:nes 
i:nes 
i:nes 


PER 
PER 
PER 
PER 


INCH 
INCH 
INCH 
INCH 


8 1... 
8 L 
8 L 
8 1... 
B L 
8 L 


INES 
I NFS 
INES 
INES 
INES 
INES 

T ;•■ I i"" f^ 


PER 
PER 
PER 
PER 
PER 
PER 


INCH 
INCH 
INCH 
INCH 
INCH 
INCH 

I' Kl f • 1-1 


H L 
8 !... 
NO 


ll\M::.::.^ 
INES 
SPACF 


r i::. l^:. 

PER 

TO 


INCH 
OVERPRINT 
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Chapter 5. Saving and Loading the Work Area 
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In this chapter, the following topics concerning saving and loading the 
work area are discussed: 

• Determining the size of a tape or diskette file 

• Writing data to a tape or a diskette file 
o Getting data from a tape or diskette file 

• Controlling files 

• Maintaining data security 

DETERMINING THE SIZE A FILE SHOULD BE 

Before information can be stored on tape or diskette, the files must be 
formatted by the MARK command. When you use the MARK 
command, you can determine the size of a saved work area by 
comparing the amount of work area available before and after you 
have entered data or programs into the work area; therefore, the file 
size equals the storage available before entering data or programs 
minus the current storage available divided by 1024. 

Saving and Loading Data on a Tape or Dislcette File 

You can write (save) the contents of a work area to tape or diskette 
using the SAVE command. This allows you to enter data or programs 
into the 5110 work area and save this information for later use. 
Individual data records can also be written to a data file. 

Once the contents of the work area are saved in a tape or diskette file, 
that information can be read back into the work area using the LOAD 
command. This allows you to load and execute the same program any 
number of times. You can use a CHAIN statement in a program to 
end that program and load and execute another program that is saved 
on tape or diskette. 
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Controlling the Files on Tape or Diskette 

Once you have stored several work areas and data files on a tape or f 

diskette, you might want to know what files you have in your library '^ 

(stored on tape or diskette). You can use the UTIL command to 
display a directory of file information for a specified tape or diskette. 
The directory provides you with such information as the file number, 

the file ID, and the file type. See the UT/L Command in the /BM 5110 /-~n 

BASIC Reference Manual, SA21-9308, for a complete description of ^^ 

the information contained in the file directory. 

When files on tape or diskette contain data that is no longer required, 

you can mark these files unused by issuing the UTILDROP command. 

Once a file is marked unused, data in the file can no longer be read ( 

into the 5110, and the defined file space is available for other uses. '^^-' 

If a diskette file is no longer required, you can make the file space 
available for reallocation by issuing the UTILFREE command. This 
allows the file space on the diskette to be used for other numbered 
files specified in the MARK command. See Diskette Concepts for 
more informatfon on how files are allocated on a diskette. 



Maintaining Data Security 

You should protect your programs and data from unauthorized access 
or accidental destruction. Several functions are built into the 5110 to 
assist you in protecting your programs and sensitive data. 



Protecting Your Programs 

After you have developed a program, you might want to keep a 
duplicate (backup) copy of the program on another diskette or tape. 
Then if the original program is accidentally destroyed, you still have 
the backup copy available. See the IBM 5110 Customer Support 
Functions Reference Manual, SA21-9311, for information on copying 
programs. You can use the SAVE command to lock a program so that 
it cannot be listed or modified. For example: 

8fWE 5, "MASTER" J...nci< , DBO 

This command writes the program to file 5, diskette drive 1, and 
permanently locks the program against listing or modifying. However, 
the program can still be loaded and run: 



LDhD u, " MASTER " . DSu 

When you lock a program, you should also keep an unlocked master 
copy available in a secure area. This unlocked copy can then be used 
if the program must be modified. 
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Protecting Your Data Files 

Following are several ways to protect your data files: 

• Maintain backup data files 

• Use the file write-protect 

• Use the diskette access-protect 

• Use the SAFE switch on the tape cartridge 

Maintaining Backup Data Files 

You should keep a backup copy of your data files on another diskette 
or tape. Then if you accidentally destroy a data file or you encounter a 
faulty diskette, you can recover your data with minimum effort. To 
create a backup data file, you periodically copy the master data file 
onto another tape or diskette. 



Using File Write Protection 

Accidentally writing to the wrong data file can be prevented by using 
file write-protection. You can write-protect a file, preventing data from 
being written to the file, with the UTIL command. For example: 

UTIL PROTECT 'MASTER',D80 

Once the file is write-protected, data cannot be written to the file 
using the SAVE or WRITE commands. However, you can still use the 
REWRITE FILE statement to update records in the file. To turn off the 
file write-protection so that you can write data to the file, use the UTIL 
command. For example: 

UTIL PROTECT OFF 'MASTER',D80 



o 
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Using Diskette Access Protection 

You can use the diskette volume ID, owner ID, and access protection 
to prevent the wrong diskette from being used for an application. For 
example, suppose you have a master diskette for an accounts payable 
application. After you have updated the accounts payable master data 
files, you could use the UTIL command to specify the volume ID, 
owner ID, and access protection. For example: 

I J r :i: i... v o i... ;i: ici a p h a s r , c: i... ark, o n , n e o 

This command protects the diskette with a volume ID of APMAST, 
owner ID CLARK, on diskette drive 1 from being accessed. To turn off 
access-protection, you use the UTIL command and exactly match the 
diskette volume and owner ID. For example: 

UTIL vol:i:d apmast , clark , off , dbo 

The UTIL command can be used in a procedure file to prevent the 
wrong diskette from being used in an application (see Chapter 3 for 
more information on proecedure files). For example, a procedure file 
might contain the following records: 

LOAD 3, 'AP. DAILY' ^DMO 

UTIL VOL ID APMAST ; CLARK , OFF, DBO 

RUN 

UTIL VOLID APMAST; CLARK, ON, DBO 



The commands in the procedure file do the following operations: 

1. Load the application program from diskette drive 2. 

2. Turn off access protection if the proper diskette is in diskette 
drive 1. 

3. Executes the application program. 

4. Turn on access protection when the application program has 
completed execution. 

If the wrong diskette was in diskette drive 1, an error occurs when the 
first command is executed, and the application program is not 
executed. 
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Removing Sensitive Data 

You are responsible for the security of any sensitive data. After you 
are through using the system, you can remove the data in the work 
area by one of the following: 

o Using the LOADO command to clear the workarea 

o Pressing the RESTART switch 

o Turning the POWER ON/OFF switch to OFF 



Several methods are available for removing sensitive data from a file. 
These methods are: 

o UTILDROP 

o Rewriting a file (OPEN for output, then CLOSE), which makes the 
old data inaccessible. 

• Filling a data file with meaningless data. For example, the following 
set of statements fills file 1 (on the built-in 5110 Model 1 tape unit) 
with zeros: 



;l. l\ 1 M A ( :l. ij \\ ) 

020 OPEN FLO, "I: 

30 NAT PUT PLC 

MO GOTO 3 

05 STOP 



8 ■;:!., GUT 

,Aj;;:oF 50 
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Chapter 6. Tape Concepts 
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There are 204K bytes {1K=1024 bytes) of tape storage available on an 
IBM Data Cartridge. This tape storage is used for file headers, work 
area files, and data files. In this section, the following topics are 
discussed: 

o How to format the tape 

o How much storage on a tape cartridge is actually available to you 



HOW TO FORMAT THE TAPE 

You must use the MARK command to format files on the tape before 
you can store work area or data records on the tape. For example: 



MARK 10, 



5, 



1 



-Starting File Number 



Number of Files To Mark 



■Size of Files in 1,024 (IK) Byte Increments. In this case, 
the size of the marked files is 10,240 (10 X 1,024) 



Once the MARK command is successfully completed by the 5110, the 
tape is formatted as follows: 



This hole indicates 
the beginning of 
the tape storage. 



File Headers 



Each tile contains 
10,240 bytes of 
storage. 



This file header 
indicates end of 
marked tape. 




Unformatted 
Tape 



The file headers contain information about the file, such as file 
number, file name, and file type. Each file header requires 512 bytes 
of tape storage. 
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If you want to format additional files on the tape, you must use the 
MARK command again. For example: 

MARK 20, 1, 6 



Starting File. Remember, in this 

example, five files are already formatted. 

■Number of Files to Mark. 



v.... 



•File Size. 



The tape is now formatted as follows: 



File 6 Header 



/ 



File 6 is formatted 
after file 5. 



Unformatted 
Tape 



When the information in a tape file is no longer needed, you can use 
the UTILDROP command to mark the file unused. The defined file 
space remains available for other uses. However, once a file is 
formatted, you cannot increase the size of the file without remarking 
the file. When you remark an existing file, any information in that file 
and the files following the re-marked file is lost. For example, assume 
you want to increase the size of file 4 on tape from 10K to 15K: 



I 




\ 



You want to increase the size 
of file 4 by 5K. 
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After the command: 



MARK 15, 1, 



-Starting File Number 



■Number of Files to Format 



■File Size 



is successfully completed, the tape is formatted as follows: 



o 



o 




File 4 now contains 

15K bytes of tape storage. 



This file header now indicates the end of 
the marked tape, and any data following 
this file header is lost 



.^ 



A formatted tape has the following characteristics: 

• Files are of variable length from IK to 204K. 

• Files can be randomly accessed; that is, you can read a file without 
having to read the previous file. Data in the files can be accessed 
sequentially or randomly. 

• Both work area and data files can be on tape. 

• Both APL and BASIC files can be on tape. 
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HOW TO DETERMINE THE STORAGE AVAILABLE ON A TAPE 
CARTRIDGE 

Each tape cartridge contains approximately 204K bytes of storage, but 
the amount of tape storage actually available to you depends on: 

• How many files are marked (formatted) on the tape 

• How the data files were written to tape 

As mentioned, each file on a tape cartridge requires one 512-byte file 
header. Therefore, the more files you mark on a tape cartridge, the 
more tape storage is used for file headers. For example, if you mark 
one 3K file on a tape, 512 bytes of tape storage are used for the file 
header. If you mark thr6e IK files on tape, however, 1536 bytes of 
tape storage are required for the three file headers. 



OneSK File 



0.5K 



3K 



Three IK Files 



0.5K 



IK 



0.5K 



IK 



0.5K 



IK 



K..,y 



Note, in these examples, that a total of 3K bytes of tape storage is 
allocated for tape files, although, for the three IK files, an additional 
IK bytes of tape storage are used for headers. 

The amount of data you can store in a data file depends on how the 
data is written to the file. (See Chapters 8, 9, and 10 for a complete 
description of writing data to the data files.) For example, when you 
first write data to a data file, the individual records are sequentially 
written to tape starting at the beginning of the data file. Once these 
records are written to tape, the data file might look like this: 



Data File 



■Data Records 



\ 



Beginning of the 
Data File 



Last Data Record 




V^. 



Unused 
Tape Storage 



End of the 
Data File 
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When you add data to the stream I/O data file (see Chapter 8), the 
new data starts at the first 512-byte boundary after the last record in 
the data file. The tape storage between the last data record and the 
additional data records is unavailable for use. 



Once the new data records are written to tape, the data file nnight 
look like this: 



Data File 
I I 



/ 



512-Byte Boundaries (tape storage Is 
divided into 512-byte segments) 



Data Records 



21 



Additional Data 



\ 



Beginning of 
the Data File 



Unavailable 
Tape Storage 



Last Data Record 



Unused 
Tape Storage 



As you add more data to the file, it is possible for more tape storage 
to become unavailable. 
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Chapter 7. Diskette Concepts 



The IBM diskette is a thin, flexible disk, permanently enclosed in a 
semirigid, protective, plastic jacket. When the diskette is properly 
inserted in the diskette drive, the disk turns freely within the jacket. 
The diskette is inserted in the diskette drive as follows: 




This label must be in the 
lower corner as the diskette 
is inserted in the diskette drive. 
The diskette drive door must be 
closed and latched after the 
diskette is inserted. 



Data is written on the diskette at specific address locations. These 
addresses provide direct access to specific information. Data written 
at an address remains there until it has been replaced by new data. 
To read data, the system finds the desired address and then reads the 
data into the 5110. 

Before being shipped to a user, each diskette is initialized. Initialization 
is a process whereby label information and data addresses are 
recorded on the diskette. Initialization is discussed later in this section. 
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DISKETTE WEAR 

The use of flexible diskette storage provides some significant 
advantages, such as low cost, compact size, multiple system functions, 
and ease of media handling and storage. It should be recognized, 
however, that during recording and reading, the read/write head is in 
contact with the media, causing diskette wear over time. Variations in 
the rate of wear will depend on the particular operating environment 
and application characteristics. Care in the storage, use, and handling 
can also affect diskette life. (See the guidelines in the IBM 5110 
BASIC Reference Manual.) Excessive wear, handling, or contamination 
can cause possible failures in recording and/or reading. 

Ultimate wear is to some extent dependent upon total usage of 
individual tracks. Care taken to distribute data so that accessing 
occurs over the entire recording surface with about the same 
frequency can extend the useful life of the diskette. Actual experience 
with individual applications and environments will allow the 
development of guidelines for determining when the media should be 
replaced. 

Unpredictable circumstances such as contamination or severe handling 
can cause an early error to occur. 

For all the above reasons, consideration should be given to providing 
an adequate recovery plan, such as: 

• Backing up critical programs and data files on a second diskette for 
use in the event of an error on the primary diskette. 

• Periodically moving frequently-used files to alternate locations on 
the diskette (see the copy function in the IBM 5110 Customer 
Support Functions Reference Manual). 
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DISKETTE ADDRESSING AND LAYOUT 

A diskette address consists of a combination of cylinder nunnber, head 
number, and record number as follows: 



CC H RR 



Record (sector) Number. The sector 

into which the data is to be written 
or from which it is to be read. 

-Head Number. The side of the diskette on which 
the data is to be written or from which 
it is to be read. This number is for all 
one-sided diskettes, for side of 
two-sided diskettes, and 1 for 
side 1 of two-sided diskettes. 



■Cylinder Number. This number identifies the 
cylinder onto which a physical record is written 
or from which it is read. 



/" 



Track and Cylinder 

A track is the recording area that passes the read/write head while the 
diskette makes a complete revolution. The read/write head is held by 
a carriage that can be moved to 77 distinct locations along a straight 
line from the center of the diskette. Therefore, each diskette has 77 
concentric tracks on which data can be stored. 




The diskette drive for two-sided diskettes has a read/write head on 
each side. Each track on side of a two-sided diskette has an 
associated track on side 1. 



o 



A cylinder is one track on a one-sided diskette or a pair of associated 
tracks (the corresponding tracks on opposite sides of the diskette) on 
a two-sided diskette. There are 77 cylinders on a diskette, numbered 
to 76. 
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Sector 



A sector is a portion of a track. All sectors on a single track are the 
same size, and the number of sectors on a track depends on the 
number of bytes per sector (see Sector Types in this section). 




Track 00 



Index Cylinder 



One Sector 



Cylinder is called the index cylinder and is reserved for information 
describing the diskette and its contents. It contains information about 
the diskette, such as volume and owner identification. The index 
cylinder also contains information associated with each file on the 
diskette. This includes the name of each file and the addresses 
associated with the file extents. An extent is the maximum space a file 
can occupy. The address at the beginning of this space is called the 
beginning of extent (BOE). The address at the end of this space is 
called the end of extent (EOE). A file might not use all of the space 
allocated for it by the BOE and EOE addresses; therefore, another 
address for end of data (EOD) exists. 



Actual Space Currently Used for Data 



BOE 



EOD 



EOE 



Area Allocated for the File (extent) 

The EOD address is used to identify the next unused area within the 
extent or to indicate that data has been written to the EOE address. 
(See the diskette initialization utility in the /BM 51 W Customer Support 
Functions Reference Manual, SA21-9311, for a complete description 
of the index cylinder.) 
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Alternate Cylinders 

The last two cylinders (75 and 76) are reserved for use as 
replacements (alternate cylinders) for defective cylinders. The 
remaining cylinders (1 through 74) are used for storing data. 



DISKETTE TYPES AND FORMATS 

The 5110 uses three types of diskettes: 

• One-sided, where data is recorded on just one side (Diskette 1) 

• Two-sided, where data is recorded on both sides (Diskette 2) 

• Two-sided, where data is recorded on both sides at double density 
(Diskette 2D) 

The diskettes are initialized (see Disk Initialization) into various 
formats, consisting of: 

• The number of sectors per track 

• The number of bytes per sector 
The 5110 diskette formats are: 

Sectors per Track Sectors per Cylinder Bytes per Sector 

26 128 

15 256 
8 512 

52 128 

30 256 

16 512 

52 256 

30 512 

16 1024 

Note: The diskette types (Diskette 1, 2, or 2D) are identified on the 
diskette label, and the UTILVOLID command can be used to determine 
the bytes per sector (physical record size). 



Diskette 1 


26 




15 




8 


Diskette 2 


26 




15 




8 


Diskette 2D 


26 




15 




8 
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FILE ID 



DISKETTE INITIALIZATION 

Diskettes must be initialized before they can be used for storing data. ( 

All diskettes are initialized before they are shipped to a customer. 
Reinitializing is not required, unless: 

• The diskette was exposed to a strong magnetic field. 

• A defect occurred in one or two cylinders. In this case, initialization 'v^ 
can be used to take the bad cylinder(s) out of service and use one 

or two of the alternate cylinders. 

• A sector sequence other than the sequence existing on the diskette 
is desired. 

o A format (number of sectors per cylinder) other than the existing 
format is desired. 

See the IBM 5110 Customer Support Functions Reference Manual, 
SA21-9311, for a description of the disk initialization program. 



VOLUME ID, OWNER ID, AND VOLUME-PROTECT INDICATOR 

Each initialized diskette has a volume ID, owner ID, and volume 
protect indicator. The volume ID is the identification of the diskette 
volume, and the owner ID is the identification of the diskette volume 
owner. The volume-protect indicator is used to prevent unauthorized 
access to the diskette volume. 

The UTILVOLID command is used to display or change the volume ID 
and owner ID, or to change the volume-protect indicator. 



_y 



Each file on a diskette has a file ID (file name). When the diskette files 
are formatted, a file ID is automatically generated, even though the 
files are unused. For example, the file ID for file 1 is SYS0001. See 
the IBM 5110 BASIC Reference Manual, for more information on file 
names when storing data. 



DISKETTE FILE WRITE-PROTECT INDICATOR 

Each file header contains a write-protect indicator. When the 
write-protect indicator is on, the file can be read into storage and 
updated, but existing data on the diskette cannot be replaced with new 
data. The UTILPROTECT command invokes or removes the 
write-protect indicator for a diskette file. 
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DISKETTE FILE ORGANIZATION 

You must use the MARK command to allocate file space on the 
diskette before you can store work area or data records on the 
diskette. For example: 



^., 



MARK 10, 



5, 



1, 



D80 



— Diskette Drive 1 

Starting File Number 

Number of Files to Format 



Size of the Files in 1024 (IK) Byte Increments. 
In this case, the size of the marked files is 
10240 (10x1024) bytes. 



Unlike tape files, diskette files are not always formatted sequentially 
on the diskette. For example, file 2 might be on cylinder 3, file 3 on 
cylinder 9, and file 4 on cylinder 7. You can control the location of a 
file on the diskette only by using a totally unmarked diskette and 
issuing MARK commands in the same order as the files are to be 
formatted on the diskette. 



When the information in a diskette file is no longer needed, you can 
use the UTILDROP command to mark the file unused. Defined space 
of the file remains available for other uses. However, once a file is 
formatted, you cannot increase the size of the file without remarking 
the file. Reallocating diskette file space is discussed next. 

REALLOCATING DISKETTE FILE SPACE 
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Unlike tape files, when you re-mark an existing diskette file, no other 
diskette files are affected. When you re-mark a diskette file to 
increase the size, the file space presently allocated to that diskette file 
is made available for other files being marked. The re-marked file will 
then be located on the diskette where there is enough continuous 
storage available for that file. For example, assume you want to 
increase the size of file 4 from 10K to 15K by issuing a MARK 15, 1, 
4, D80 command: 

Disk 
Cylinder 



4 



After you issue the MARK command 
this file space is no longer allocated 
for File 4. 
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Once the file space previously occupied by file 4 is available, that file 
space will be used by subsequent MARK command that marks a file 
of 10K or smaller. 



^'~N 



After the MARK command is successfully completed, file 4 is 
formatted on the diskette at a location where at least 15K of 
continuous storage is available. 



\ 



Unallocated Diskette Storage 

/ 



10 



20K of unallocated diskette storage was 
available at this location before the 
MARK connmand was issued. 

DETERMINING THE STORAGE AVAILABLE ON A DISKETTE 

Available diskette storage varies, depending upon the type of diskette 
being used. The amount of storage depends on: 

• Whether data can be recorded on just one side or on both sides of 
the diskette 

• The number of sectors per cylinder 

• The number of bytes per sector 



Diskette 
Cylinder 



Another 
Diskette 
Cylinder 
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Each diskette has 77 cylinders. Cylinder is called the index track and 
is reserved for information (file headers) about the diskette files. 
Cylinders 75 and 76 are alternate cylinders used as replacements for 
bad cylinders. This leaves cylinders 1 through 74 available for data 
storage. The following chart shows the amount of storage available 
with the different types of diskettes: 



Sectors per Cylinder Bytes per Sector 



Available Storage in 
Bytes (Cylinders 1-74) 



Diskette 1 


26 




15 




8 


Diskette 2 


52 




30 




16 


Diskette 2D 


52 




30 




16 



128 


246,272 


256 


284,160 


512 


303,104 


128 


492,544 


256 


568,320 


512 


606,208 


256 


985,088 


512 


1,136,640 


1024 


1,212,416 



.y 



Although the previous chart shows the maximum amount of diskette 
storage, the amount of diskette storage actually available to you 
depends on: 

• The number and the size of the files marked on the diskette 
o The types of data files written to the diskette 

• How the file space is allocated from previous MARK and UTILFREE 
commands 

• Whether an extended label area was requested at initialization time 
(see IBM 5110 Customer Support Functions Reference IVIanual, 
SA21-9311) 
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Number and Size of the Diskette Files 

Generally, there is a maximum number of files that can be on a 
diskette: 





Diskette 1 


Diskette 2 


Diskette 2D 


Maximum Number 


19 


45 


71 


of Files 









If you use diskette 2D, see the disk initialization program in the IBM 
5110 Customer Support Functions Reference Manual, for information 
on how to get additional file headers. 

If you mark the maximum number of files without using all the 
available file space, the remaining file space becomes unavailable for 
storing data. For example, assume you have an unmarked Diskette 1 
with 128 bytes per sector. This diskette has 246,272 bytes available 
for storing data, and you issue the following command: 



MARK 10, 



19, 



1, 



D80 



In this example, diskette drive 1 

is used 
■Starting File Number 



•Number of Files to be Marked 



Size of Each File 



This command marks the diskette with the maximum of 19 files. Each 
file is 10K bytes; therefore, a maximum of 190K (194,560) bytes of 
storage is allocated for the files. Now, if you subtract the allocated 
diskette storage from the available diskette file space: 



246,272 
194,560 
51,712- 



This much diskette storage is 
unused and unavailable for you 
to store data. 
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How the File Space is Allocated 

Earlier in this section, we discussed reallocating diskette file space 
using the UTILFREE and MARK commands (see Reallocating Diskette 
File Space). Using the UTILFREE and MARK command to reallocate 
diskette file space can cause fragmented blocks of unallocated file 
space on the diskette. For example, assume that a diskette has all file 
space allocated except the following 15K of file space on a cylinder: 



o 



Diskette 
Cylinder 



12 




/ 



lOK of Unallocated 
File Space 



5K of Unallocated 
File Space 



O 



O 



If you need that 15K of storage to mark a new file, the storage is not 
available because it is not in 15K contiguous bytes. 

The fragmented blocks of unallocated file space can be made available 
by the compress function (see the IBM 5110 Customer Support 
Functions Reference Manual). The compress function closes the gaps 
caused by the unallocated file space and places all of the unallocated 
file space in one contiguous area. 
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Chapter 8. Introduction To Data Files 
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FILES, RECORDS, AND FIELDS 

A file is a collection of related data items which are grouped together 
in records. Most of us carry a driver's license. That is a record. What 
about a time card? That too is a record. Each of those records 
contains items related to the purpose of the specific document. The 
related items are called fields. The following illustration shows a 
record containing the fields of information that can be found on a 
driver's license: 



License No. Eyes 

Drivers Name Address Date of Birth \ Height \ Sex 



X 



3irin \ Height \ be 



ROBERT JAMES 



13 FORE AVE. ANYTOWN, N.Y. 



9-30-42 



132-5711 



5-9 



BR 



Each field is related to the record in that it contains information 
relating to the specific driver. A field is the amount of space set aside 
for each data item. The next illustration shows a record containing the 
fields of information found on a time card: 



Name 



Location 



Date Serial No. Shift Start Time 



TOM ROBERTS 



ENDICOTT 



10-10-74 



83215 



— 7 

8:00 



A group of records makes up a file. A 5110 data file contains records 
in a specific sequence just as a filing cabinet does. 

The following illustration shows a record containing customer 
information that would be used in making out an invoice: 



Customer 
Number 



Name 



Street 
Address 



City, Street 



137250 



JAMES CONSTRUCTION CO. 



13 TOPPER AVE 



TROY, N.Y. 



Billing 
Code 



13 



Introduction to Data Files 
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The file would contain as many records as there are customer 
numbers. A file should be given a unique name so that the file can be 
distinguished from other files. Because the record in the previous 
illustration contains customer master information, the file could be 
named CUSTOMER. MASTER. A file containing master information 
about the products in your inventory could be named ITEM. MASTER. 

Different files can contain different record layouts. For example, the 
following illustration shows a record that has items related to the item 
file: 



Item 
Number 



\ 



Description 



Price 



874164 



WIDGET 



■A^— / 



Qty in 
Stock 



13.95 



0043 



Organizing a File 

An important part of any data processing job is file organization. File 
organization is the arrangement of records in the file. There are two 
types of files using the 5110: stream I/O and record I/O. 



Stream I/O 

For stream I/O, all the data items are organized sequentially on the 
tape or diskette, with a comma used as the delimiter between fields. 
For example, a customer master file might be formatted as follows: 



Customer 1, John Smith, 4016 28th. St., City, 55555, Customer 2, Joe Jones, .. 



The fields are variable in length because only the exact number of 
characters is maintained. In order to read customer number 2 and the 
related fields, the 5110 must start at the beginning of the file and 
sequentially read each field until the desired customer information is 
read. 



^ 



74 



Record I/O 
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The corresponding fields of each record in a record I/O file must have 
the same length; no delimiters (commas) are required between fields. 
For example, a customer master file might be formatted as follows: 



Customer 1 



John Smith 



Customer 2 



Tom Stewart 



11 Field 
Character 



20 Field 
Character 



Record 1 (31 Characters) 



11 Field 
Character 



20 Field 
Character 



Record 2 (31 Characters) 



The record and field sizes are established as the application is 
designed (see Designing A Record in Chapter 10). 

Unlike stream I/O files, record I/O files can be accessed in three 
ways: 

1 . Sequential. Each record is accessed in the same order they were 
written to the file. 

2. Direct. Individual records can be accessed by specifying the record 
number (relative record number). 

3. Indexed. An index is used to find an individual record in a file. 
Therefore, you do not have to know the relative record number of a 
record before you can access the record. 

The next chapter describes the characteristics of the 5110 data file 
processing methods. 
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Chapter 9. Characteristics of Accessing Data Files 
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This chapter describes the characteristics of data files when the files 
are accessed: 

• In sequential order 

• In direct order by relative record number 

• In direct order using an index 

This chapter also discusses maintaining files. 

SEQUENTIAL ACCESS 

For both stream I/O and record I/O, a file can be accessed 
sequentially. That is, the records are accessed one after another in the 
order they occur. An example of a sequentially accessed file might be 
an employee master file. This file contains information needed for 
various reports concerning each employee, such as payroll checks. 
Because checks are processed by employee number, records are 
accessed in order. The lowest employee number is accessed and 
processed first and so on until the last record, the highest employee 
number, is accessed and processed. 

DIRECT ACCESS BY RELATIVE RECORD NUMBER 

For record I/O, files can be accessed directly using the relative record 
number. This allows you to process records in the file faster than if 
you used sequential accessing. For example, assume you have an item 
master file that contains stock status information on 1000 items by 
item number. If you want to know the stock status of item number 
500 in the file, direct accessing allows you to specify the record 
number containing the information. This record is then accessed 
directly and the information is available. However, if the file is 
sequentially accessed, you must read all of the preceding records 
before you can read the record that contains the information you need. 
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DIRECT PROCESSING BY INDEX KEY 

For record I/O, files can be accessed directly using an index to locate 
the records in the file. The file index is created as the records are 
written to the file. The index contains a key, such as customer number 
or item number, and the relative record numbers of the record. When 
you want to process a specific record, you must specify the index key 
and the system accesses the proper record using the address of the 
record associated with that key. 



After the index is created, the index can be sorted into ascending 
sequence. For example, as a file is created, the index and file are as 
follows: 



10 



40 



20 



60 



30 



50 



70 



File Index 



Data File 



10 



40 



20 



60 



30 



50 



70 



Records 



v^_ 



However, after the index is sorted in ascending sequence, the index 
and file are as follows: 



-Data File 



1 3 5 2 6 4 7 



10 20 30 40 50 60 70 



10 



40 



20 



60 



30 



50 



70 



File Index 



Records 



The diskette address of the record associated with each key remains 
the same. This allows you to access the data file in several ways. 

Sequential Accessing by Key 

When an indexed file is accessed sequentially by key, the keys are 
processed one after another in ascending order. Even if the records 
are not in order on the file, they are accessed in order using the index. 

An indexed file can also be accessed sequentially, without using the 
index. Data records are accessed sequentially, that is, first record, 
second record, and so on, from the beginning of the file to the end of 
the file. However, if the records are not sorted first, they might not be 
in order. 

Note: If you access an indexed file without using the index, and add 
or update records in the file, a key is not added to the key index for 
the added records, and existing keys within a record could be changed 
when you are updating a record. 
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Direct Accessing 
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Indexed files can also be accessed directly. This type of accessing 
also uses tiie index and is called direct accessing by key. Direct 
accessing by key permits processing of one particular record without 
regard to its relation to other records. You must first specify the key 
of the record. The key is then found in the index; the relative record 
number (adjacent to key) is used to locate the record; and the record 
is transferred to storage for processing. For example, records in a 
customer master file are to be updated to reflect current information. 
The transaction record number entries are not in order. The system 
finds the record by matching the customer number in the entry with 
the key (customer number in the index). The address, adjacent to this 
key, is then used to find the record. 

Often an indexed file is used in several different jobs each of which 
requires a different accessing method. For example, during statement 
writing, a customer file may be accessed sequentially to allow cyclic 
statement writing. During a billing job, the same file may be accessed 
directly by key to allow the updating of specific master records. Then, 
during an aged trial balance job (each customer's outstanding balance 
is printed), the file may be accessed sequentially by key. 

Indexed files can also be accessed by relative record number. This 
method of accessing requires that the file index be bypassed. 
Records in the data file can then be accessed by using a number 
(relative record number) indicating their relative position in the file. 



MAINTAINING DATA FILES 

Once a file is created, file maintenance is often necessary. File 
maintenance means performing those activities that keep a file current 
for daily processing needs. Some file maintenance activities are 
adding, deleting, and updating records. Adding means putting a 
record in a file after the file is created. Deleting means identifying a 
record so it will not be processed with other records. Updating means 
adding or changing some data in a record. 
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Adding Records 

Records can be added to a file after the file has been created. When 
records are added to a file, they are written at the end of the file. 
Thus, the file is extended by the added records. 

Sometimes, however, the new records must be merged between the 
records already in the file. This may be necessary to keep the file in a 
particular order. In order to put the new records in the proper 
sequence, you must sort the file to create a new file containing the 
added records in the correct location. 

When a record is added to an indexed file, the system checks to 
ensure that the record key is not a duplicate of a record key already in 
the file; if the key is not a duplicate, it is added to the end of the file. 
The keys of the added records and the keys of original records should 
be sorted, so that the keys of all the records in the file are in 
ascending sequence in the index. When the keys are in ascending 
order, the 5110 uses less time to search the index. 



Tagging Records for Deletion 

When a record becomes inactive, you might not want to process it 
with the other records. A record cannot be physically removed from 
the file during regular processing; therefore, it is necessary to identify 
or tag the record so it can be bypassed. One way to tag such a record 
is to put a code, called a delete code, in a particular location in the 
record. When the file is processed, your programs can check for the 
delete code; if the delete code is present, the record is bypassed. 

When several records in a file have been tagged for deletion, you 
should remove them from the file. This will free file space. You can 
remove the deleted records by using a program to copy the records to 
be retained onto another file. 

For an indexed file, you can also use the DELETE FILE statement to 
tag the record key in the index for the record to be bypassed. This 
does not alter the record in the master file. 
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Updating Records 

When you update records in a file, you can edit or change some data 
on the record. For example, in an inventory file you might want to add 
the quantity of items received to the previous quantity on hand. The 
record to be updated is read (by the READ FILE statement) into 
storage, changed, and written back in its original location by the 
REWRITE FILE statement. 



o 
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Reorganizing a File 

After file maintenance activities are performed, it might be necessary 
to reorganize your file to increase processing efficiency and free file 
space. This is done by using a BASIC program to physically merge the 
added records in sequence with the records originally created, and to 
remove the records tagged for deletion by copying the existing file 
and writing it into a new file. During the copy, deleted records can be 
removed from the file, and records previously added to the file are 
copied into the new file in sequence with the original records. The old 
file can then be used to contain new data. 

A Diskette Sort feature is provided to allow you to change the order of 
record I/O files. For more information about this program, see the 
IBM Customer Support Functions Reference Manual, SA21-9311. This 

feature allows you to sort the records and write them to a new file. 
Also, you can sort the file and write just the record numbers, which 
indicate where the records are located on the diskette, to a new file. 
This file, called an address out file, can then be used to access the 
original records. For example: 



Relative Record Number 



Master File 
1 




Master file remains 
in the original order. 



4 


1 


5 


3 


2 



Sorted relative record 
numbers can be used to 
access the master file 
in ascending order. 
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The following statements might be used in a program to access a file 
in order using the record numbers in the address out file: 



)n3i 
ni-i-i 

5 i 

061 
(i 7 i 



i.J 



OPEN 
READ 
••■mRM t 
RE A 



i-LJ. , D80 ' 
Fi...2, ' DBO ' 
USING 60 



' NAMES ' , ALL 
■ ADDBURT ' , Ih 



Chapter 10. Designing a Record and Determining File Size for Record I/O Files 
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DESIGNING A RECORD 

The applications that use a certain file determine what data is needed 
in a record. You should study these applications and then decide the 
layout of the record. Layout means the arrangement of fields in a 
record. When you design a record, you determine field length, 
location, and name. 

To illustrate these design considerations, a name and address file is 
used in this chapter. Each record in the file contains the following 
data: 

Field Size (number of positions) 



Customer number 


6 


Name 


20 


Street address 


20 


City and state 


20 


Record code 


2 


Delete code 


1 


(Other fields) 


47 (total) 




116 TOTAL 



Determining Field Size 

Field size depends on the nature of the data in the field. First, the 
length of the data may vary. In this example, name is 20 positions. 
The length of each customer's name varies, but 20 positions should be 
sufficient for the names. Secondly, all data in a field may be the same 
length. For example, customer number is six positions, and all six 
positions are used in each record. 

There are no firm rules for determining field size. The major problem 
involves fields with variable-length data. For example, if name is 
planned as 15 positions, and a new customer has 19 characters in his 
name, a problem arises when his record is added to the file. To avoid 
this problem, try to estimate the largest length of the data that will be 
contained in a field. Use this length to determine field size. 
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Providing for a Delete Code 

Records are not automatically deleted. You must place a delete code ( 

on a record with a BASIC REWRITE FILE statement. Then when the 
file is processed, your program can bypass the record. 

For example, you might use the delete code to indicate that a 

customer is inactive and that his account information should not be /--~x 

processed when generating a report. i 



Record Expansion 

It is often wise to allow for data to be added to a record. For 
example, suppose this name and address file were created with the 
fields described, and at a later time each customer's zip code is 
needed. If all positions in the record are used, there is no place to add 
the zip code. Because record length is not yet established, we can 
allow for such additions to this record. Although it is often difficult at 
the planning stage to imagine what data might be added, it is wise to 
reserve extra space; a minimum of 10% is suggested. 



Designing a Sample Record 

Assume you are teaching a class and you decide to set up a record for 
each person. Each record will contain the person's name, his home 
address, test marks for five tests you plan to give, his average mark, 
and a code to indicate whether he is an honor student. The entries in 
the record might look like this: 



JTRY 


CHARACTERS 


NAME 


25 


ADDRESS 


65 


GRADES 


15 


AVERAGE 


5 


HONORS 


1 




111 Total 



Altogether, these entries take up 1 1 1 characters. You decide to 
include additional space in each record for possible entries to be 
added later, such as awards, special achievements, and remarks. 
Altogether, you decide to have a record with 128 characters in a file 
named CLASS with 128 positions for the record. 
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DETERMINING THE SIZE OF A FILE 

To determine the size of a file, you must plan how many records will 
be in the file at a specified time. 

To determine the number of records in a file, consider several factors. 
First, you must know how many records will be in the file when it is 
created. If the file already exists, perhaps as a card file, use the 
number of records in this file as a base. 

You must also know whether records will be added or deleted. If 
additions are expected, how many records are expected, and how 
often will they occur? If records will be tagged for deletion, consider 
periodically removing them from the file. By removing records that 
you no longer need, you free diskette space and allow more records 
to be added. 

Only after considering these factors and the applications that use the 
file can you determine the number of records in the file. For example, 
the customer name and address file will contain 6000 records at 
creation time. It is estimated that each month 200 records will be 
added and 80 records will be deleted. It is also planned that the 
deletion records will be removed once a month. At the end of six 
months the file will contain 6720 records (1200 records are added; 480 
records are deleted). 



6000 Records at creation 

+1200 Records added in six nnonths 



7200 
- 480 Records deleted in six months 



6720 Records in file after six months 



This example points out another factor to consider. When determining 
the number of records in a file, consider expansion for a reasonable 
time into the future (at least six months). Of course, most files have 
deletions, and thus growth is usually slow. In a file where the number 
of additions and deletions are about the same, records tagged for 
deletion need be removed only when the disk space allowed for the 
file is filled. 
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Calculating File Space 

To determine the file space, you must know the number of characters 
in the file. To calculate the number of characters in a file, multiply the 
number of records (allowing for expansion) by the length of each 
record. For the customer name and address file, there will be 6720 
records in the file at the end of six months. Each record contains 128 
characters. Thus, the number of characters in the file is calculated as: 



6720 
x128 


Number of Records in the File 
Number of Characters in Each Record 

Total Characters in the File 


53760 
13440 
6720 


860,160 



and the file should be marked for 860K. 



Calculating Index File Space 



If the file is indexed, the system stores the index on a file. To 
determine the space needed for the index, you must know the size of 
the index entry (an index entry consists of a key and a diskette 
address). Key lengths vary, depending upon the application up to a 
maximum of 28 characters, but diskette addresses are always 4 
characters long. Thus, the key entry is calculated as follows: 



/""^N 



Key Entry = Key Field Length +4 



Note: The records in an index file must be 8, 16, or 32 characters 
long. Therefore, if the key entry is greater than 8 but less than 16, the 
index file record length is 16. Similarly, if the entry length is greater 
than 16 but less than 32, the index record length is 32. 

In the name and address file described earlier in this chapter, the key 
field is customer number (#), and it is 6 characters long. In this case, 
the key entry is 10 (6 + 4 = 10) and the index file record length is 16 
characters. 
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Now that we know the record size, we can calculate the storage 
required: 

16*6,720= 107,520 

Thus, the index file should be marked for 105K (K = 1,024 bytes). 

After you determine the amount of space the file requires, you can 
decide where to locate the file on the diskette. A diskette can contain 
several files, depending upon their size: therefore, you should 
document the files that are on each diskette using the UTIL PRINT 
command. 

As you create more files, you can refer to the directory of a particular 
diskette to determine the amount of available space on that diskette. 

Review-Calculating File Space 

Calculation 1: Record Space 

To calculate the space required for the records of a file, the following 
steps are necessary: 

1. Multiply the number of records by record length to get the total 
number of characters. 

2. Mark the file to the nearest number of K bytes. 

Calculation 2: Index Space 

To calculate the amount of space required for an index, the steps are: 

1. Add 4 to the key field to get the length of the key entries. 

2. Determine index file record length, which must be 8, 16, or 32. 
Always assume the closest number that is not smaller than the 
length of the key entry to get index file record length. 

3. Multiply the index file record length by the record count to get the 
character count. 

4. Mark the file to the nearest number of K-bytes (characters). 
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DOCUMENTING RECORD LAYOUT 

Documenting the record layout makes your BASIC program easier to 
write. The following example shows the layout of a customer master 
record : 



# 



N$ 



A$ 



C$ 



Other Fields 



][ 



Reserved Space 



D 



^ 



1 23 



89 



28 29 48 49 68 69 



127 128 



where: 



R = Record code 

# = Customer number 

N$ = Customer name 

A$ = Customer street address 

C$ = City and state 

D = Delete code 

A record layout includes the order of the fields in the record, the 
length of each field, and the name of each field. 



Record Length 

A record may contain all predefined fields, or space may be reserved 
for data to be added to the record. In either case, all records in a 
particular file must be the same length. In your BASIC programs you 
must specify record length. Record length is the sum of the field 
lengths (including reservied space). 

In the previous example, the sum of the fields is 116 positions. 
However, the record length is established at 128, thus 12 positions are 
reserved for data that might be added at a later time. 
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This chapter discusses how to process stream I/O and record I/O 
data files. 



PROCESSING STREAM I/O FILES 

To process a stream I/O data file, you follow this sequence: 

1. Open the data file. 

2. Sequentially read from or write to the file. 

3. Close the data file. 

Opening and Closing Stream I/O Files 

Files must be activated or opened before they can be used. A file can 
only be activated with an OPEN statement in the program. For 
example: 

0:1.0 np!-;:N fli , ' mn • ,, 2 , in 

The word IN indicates that the file is to be used for retrieving data 
items from the file for use in the program. If the file were to be used 
for storing data, it could be opened explicitly as an output file with this 
statement: 

2 iJ 1-^ I-- N V i... :l. , ' li S ' ; 2 , ■ N M ri I;- ' , U T 

Now, look at the following OPEN statement: 

2 :i. (J i" i;:: n !•• i... 3 , ■ n a o ' , 5 ,, ' i; t e; m . m a s i e. r ■ , i n 
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For input/output operations, a file must be identified with a file 

reference of FL0-FL9. In the previous example, FL3. This file reference 

is used to identify the file when you are using GET or PUT statements ^ ^ 

(for example, GET FL3, A, B, C). After the file reference, the device is v.,, 

specified (for example, D80). A file number and/or file name can also 

be entered for an OPEN statement. For the previous OPEN statement, 

the file number is 5 and the file name is ITEM. MASTER. For diskette 

data files, a file name must be specified when the file is created. 

However, for tape files or reading any file, the file name does not 

need to be specified. 

Normally, a file is deactivated or closed by the system after execution 
of your program. However, if you want to switch an input file to 
output (or vice versa) and continue to use it in the same program, you 
must explicitly deactivate it by using the CLOSE statement before 
reopening it. (If you did not use the CLOSE statement and attempted 
to use an output file for input or vice versa, execution of your program 
would be terminated.) CLOSE deactivates the file; a subsequent OPEN 
statement opens (reactivates) the file for its new use and repositions it 
at its beginning. For example: 

U 1 OPEN FL3 , ' D80 ' , M- , ' ACCTG ' , UlIT 

2 i) i" i J T \" i... <:5 , li 'l> , R i|i , A .. B , Z , D 

030 CLOSE FL8 

OO'iO GPEi'^i FEB , ' DBO ' , M- , ' ACCTS ' , IN 

5 G E. T I"' L & , is $ , R $ , A , B , Z , B 

In this example, the values assigned to the variables D$, R$, A, B, C, 
and D (statement 20) will be stored in file 4 (named ACCTS) on 
diskette drive 1. The file is then closed and reopened for input. 
Statement 50 then retrieves the variable values from the file. File 
reference code FL8 is used only to refer to the file opened in 
statements 10 and 40. 
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Writing to and Reading from Stream I/O Files 

Stream I/O files can only be accessed sequentially. That is, you can 
only write or read records in sequential order starting from the 
beginning of the file. To do this, you use the PUT and GET 
statements. For example: 



o 



o 



i Q i) u p i;;: n i-- i... :i. , ■ b b o ' , 2 , ' :i: n t e. r i;- s t ' , u r 

)9n PRINT 'ENTER PRINCIPAL' 

.00 INPUT P 

i. 10 EUR T"^l. TO 10\^ Execute statements 130 and 140 

.20 EGR R" 



TO 10^ 
TO 20/ 



3 A""P^-v( IvR/IUU ) tT 

0|i|.0 PUT ELI ., T , R, A^- 

!5 NEXT R 

016 NEXT T 

0170 STOP 



two hundred times. 

Write the values of T, R, and A 
to the data file. 



The PUT statement instructs the computer to put the values contained 
in the variables T, R, and A into the file referenced by FL1. 

Now, to read and print the data written to the file, you could use the 
following program: 

0010 OPEN EL8, ' DOO ' , 2 , IN 

20 PRINT ' TIME ' ,, ' RATE ' , ' AMOUNT ' 

3 I-" R T ■■■■■■ 1 T 2 

OO'lO GET EL8,, A,B,C 

05 PRINT A,B,C^ Display the data under 

60 NEXT T the appropriate title. 

7 S T {'.) P 
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It is not necessary to use the same variable names as when the file 
was created. The important requirement is that the values in the file 
and the variables to which they are assigned must be the same type: 
arithmetic variables for arithmetic values, character variables for 
character values. 

After the first GET is executed, the file is positioned at the next value. 
In the previous example, the GET statement is executed 200 times to 
access all the data previously stored. 
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Notice what happens when an input file is closed and reactivated as 
an output file. 

020 OPEN I" I.J-1- , ■ D8 " , 2 , ' AF ' ; IN 

30 GI:::T FLM- , a, B . C , D; E 

MO B""A 

5 A "" 3 6 

060 C-C'^B 

070 CLOSE FLM- 

080 OPEN FL'I- , ' DOO ' , 2 ^ " AF ' , OUT 

090 PUT ELM- , A , B ■ C 

A previously created file named AF is activated for input. In statement 
30, five values are made available to the program from file 2. In 
statements 40 through 60, new values are acquired for A, B, and C. 
Statement 70 deactivates AF, and statement 80 re-opens the file for 
output. Statement 90 places the new values for A through C into the 
file. All of the old values in the file are lost. 



Repositioning Files 

Occasionally you may have to use an input file or an output file more 
than one time in the same program. The RESET statement allows you 
to reposition the file without deactivating it (deactivation is necessary 
only when the function of a file is changed from input to output or 
vice versa). For example: 

03 GET FLV, X, Y, Z. 0, R, S 



:!. RESET FL9 Repositions file to 

:l. 1 GET FL9 . X . Y , Z . , R , S its beginning 



0:1.30 RESET FL9 

016 GET FL9, X, Y , Z, Q, R, S 

Between statements 50 and 100, the variables X, Y, Z, Q, R, and S 
could be used in one set of calculations and their values changed. 
Repositioning the file to the beginning permits the original values in 
the file to be made available and put into variables X, Y, Z, Q, R, and S 
again for different calculations or uses between statements 110 and 
150, and again between 160 and the end of the program. 
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To add data to the end of the file, you can reset the file to its end by 
using the RESET statement with the END keyword: 

020 RESET FL;I. END 

This statement positions FL1 to the end of the last data item in the 
file. PUT statements appearing after statement 0200 place additional 
A data into the file. In effect, RESET FLX END changes an input file to 

,) an output file. In this case, the file must be open for input before you 

use the RESET END statement. 



Input/Output Error Handling 

Certain error conditions can occur while you are processing files. As 
an example, when reading through a file, you need to take action after 
the last item is read; otherwise the computer will terminate the 
program. The EOF (end of file) clause can be written in the GET 
statement to branch to another program statement when the end of 
the file is reached. 

A GET statement with an EOF clause could look like this: 

'•(• (3 i;;: t f" i... 6 , x , y , z , i;;: o i-- :i. o o 

This statement directs the computer to statement 100 when the end of 
the file is reached. At statement 100, you could end the program, or 
close the file and continue processing, or perform any number of 
actions. The important thing is that specifying the EOF clause allows 
you to retain control of program execution. 

The EOF clause can be specified on the PUT statement as well. Note 
that if an EOF condition occurs, not all of the output data may have 
been written into the file. 
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These are other error handling clauses: 

Clause Meaning I, 1 

lOERR n Branch to the statement numbered n 

if a hardware malfunction prevents 
reading or writing of a record. lOERR 

can be specified on the GET and PUT /^~^ 

statements. K__y 

CONV n Branch to the statement numbered n 

if a conversion error occurs while a 
data item is being assigned, for example, 
if an attempt is made to read character 
data into a numeric variable. CONV can 
be specified on the GET statement but not 
on the PUT statement. 

Instead of writing these error handling clauses on many GET and PUT 
statements throughout your program, you can write them on one or 
more EXIT statements. An EXIT statement is used in conjunction with 
many input/output statements to group error handling in one place. 
The statement could look like this: 

i'i i] B f) t::: X ;[ 'I ■ E. (J !••■ :!. O O , l O E. R R :I. 5 i) . C (3 N V 2 1) 

This statement tells the computer to branch to statement 100 when 
the end of the file is reached, to branch to statement 150 if a 
hardware error is encountered, and to branch to statement 200 if a 
data conversion error is encountered. 



ACCESSING RECORD I/O FILES 

You can access record I/O files by three methods: sequential, direct, 
and indexed. 

The sequential access method is one in which the records are 

accessed in the order in which they are entered. To use an example of (^ 

the 50 states, if you enter the records in alphabetic order, the first ^- -^ 

record is Alabama, then Alaska, Arizona, Arkansas, and so on. If you 

enter them in geographic order, say with the New England states first, 

the order is Maine, New Hampshire, Vermont, and so on. In either 

case, all records are retrieved sequentially in the same order that they /^~~-^ 

were entered. l^ 
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In a record-oriented file, each record has a record number relative to 
the first record. If the 50 states are stored alphabetically, the Arkansas 
record has a relative record number of 4. The direct access method 
can be used to retrieve records directly by record number. 

An indexed access method is one in which each record is stored with 
a unique identification called a key. If the 50 states were stored with a 
key (for example, the key could be the name of the state), you can tell 
the 5110 which key to look for. The computer looks through an index 
until it finds the particular key and then retrieves the corresponding 
record from the master file. Thus with an index, each record can be 
retrieved directly. 

To process a record I/O file, you follow this sequence: 

1. Open the data file. 

2. Access the file sequentially, directly, or indexed directly. 

3. Close the data file. 



Opening and Closing Record I/O Files 



Record-oriented files, like stream-oriented files, must be opened 
explicitly. A record-oriented file is opened explicitly through the OPEN 
FILE statement. As you may recall, for stream-oriented files, OPEN is 
specified with the keywords IN for input or OUT for output. 
Record-oriented files are opened in the same way for input and 
output. If ALL is specified, the file can be accessed for both input and 
output without closing and reopening. 

In addition, the RECL= clause (record length) must be specified after 
OUT when creating record-oriented files to specify the length (number 
of characters) of the record being written. 

CLOSE FILE is used to close files the same way for record-oriented 
files as CLOSE is used for stream-oriented files. If the statement is 
not present, the system closes the file at the end of program 
execution. 
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Following is an example of an OPEN FILE statement for a record I/O 
file: 



i:,' ! 



il;::^ii 



i'^ElJ : Ai" COUNTS ' , QW 



Specifies a record I/O file. 



Notice the period (.) in the file name NEW.ACCOUNTS. No blanks are 
permitted in the file name. 



V, 



If you are going to use the indexed access method, you must also 
open a file for the index. For example: 



{) 2. 1 f j PE.H l- i 
(i 2 2 P E N i-" 1 



I- 1... 



iHli 



iJU j" , i<i;:!'i' , i< i 



The file reference must be the same for the master and the index file; 
however, the files must be in different locations on the media (in this 
example, files 6 and 2). After statement 220 is executed, the 5110 
automatically creates an entry in the index file when a record is written 
to the master file. The KP= and KL= parameters describe the starting 
location and number of characters of the record in the master file to 
be used as a key in the index. 

Note: If the parameter SEQ is specified in the open statement for a 
data file, that file can be used as a data exchange file with other 
systems. However, this file should only be accessed sequentially. 
Direct access of the file might not access the desired record. 



V_. 
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Writing to and Reading from Record I/O Files 

Creating a Record I/O File 

The WRITE FILE statement is the record-oriented counterpart to the 
PUT statement. For example, at the beginning of the school session, 
the only information available to you for each student is his name and 
address. You could write one WRITE FILE statement to enter the 
name and address for each student like this: 

05 WRITEFiLi;;; FLl ,' BUTLER, J , S . ' , ' 323 W, 76 STREET, NEU YORK 

You could also write one generalized WRITE FILE statement using two 
character variables for the name and address, like this: 

050 y R ;i: T EF I LE FLl ,N$,H$ 

This statement would enter the values of the two variables N$ and A$. 

This DIM statement should be included in the program to assign a 
length of 25 to N$ and 65 to A$: 

0:1.0 DIM N^i>25, H'ii>63 

{ j Each record written by the WRITE FILE statement would be arranged 

^— ^ in the file this way: 



o 



name 


address 


unused 



1 26 90 128 

Note that this WRITE FILE statement writes 90 positions of the record. 
Unassigned record space is filled with blanks. Thus, record positions 
91 through 128 are blank. The WRITE FILE statement contains a 
USING clause with the statement number of the FORM statement, and 
the FORM statement describes how the entries are to be formatted 
into the record. The combination of WRITE FILE and FORM 
statements could look like this: 

50 y R :i; r i;;: f" 1 1 .. i;;: i j s i n (. 5 5 , i-- 1.., :i. /\\% ,P\ % 

5 5 I"' i^: M !-^ o :i. , C , !■' (J 826, C; 
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This FORM statement says that, beginning at position 1 in the record, 
the character variable N$ is to be written; beginning at position 26 of 
the record, the character variable A$ is to be written. 



name 


address 


unused 



26 



91 



150 



The following program shows how you could enter the names and 
addresses of the students into the file named CLASS. 



/-""^^ 



010 (jPEjN FIi.,,F F-L 1. , 'DBO' ,1, 'CLASS 

020 DIM N$25;A$65 

30 PRINT 'ENTER NAME" 

OOOT) INPUT N* 

5 1 f N :1> "" ' l, A S T ' G (J T 1. :j, 

6 P R ]; N T ' E. N T E R A D B R E S S ' 

070 INPUT A$ 

8 [■■■! R 1 J il i'-' 1 L E U S 1 N G 9 , i'-' L 1 , N $ , h $ 

9 !'■' R i1 !■■' (J S 1 , (.; , P ! J 3 2 6 > C 

:l. (;} [} T u 3 

1 1 C L (!) S P: I-" 1 L E. !■■■ E 1 



our ■ RP!CL"" 1 



The program is constructed to recognize the word LAST as the end of 
input; therefore, the last input item should be coded 'LAST'. Your 
input could look like this: 



1...I I !.., I". (■■:. 

23 U , 



'::> ! H\\: 



NEU YORK , N , J , , 7 09'i 



Sri] 
'.'■■' 2 ;•• 

YUl 


T Pi , C . A : ' 

E, 33 STREET 

NG, U : ' 


' 32-: 


135 STREET, 



^j , Y . , 10 22 



!::. ! . !•• 1... U b r1 .1. N U 



N 



After the records are entered, the first record in CLASS would look 
like this: 



j ■■■;■ 1 r- r. i 
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After the file has been created, if you decide to add more records, say 
for a new student who registers late, the WRITE FILE statement can 
be used to enter additional records. No RESET statement is necessary 
as with stream-oriented files; the WRITE FILE statement automatically 
positions a file at its end. Note that additional records would not be 
sorted but would be entered in place at the end of the file. 



o 



Now, assume an index file was also specified for the previous 
example: 



(i :i. 5 Q p E. H F 1 1... i;:: f i... :i. ; ' d o o * , 2 , ' :i: n d e- k' a} u t , i< i:;: y , k p ■■■■■■■■ i ., i< i 



<!,:::: 2 l^-i 



o 



o 



Use the characters in 
positions 1 through 25 
as the key. 



When formatting the key field, you should exercise care in putting the 
key into the proper position in the file. For purposes of simplicity, 
these examples use the first 25 record positions for the key. The 
occasion may arise, however, when you might have a file with the key 
starting in a position other than 1. By careful use of POS , you can 
assure that the key will be properly located. Also, you can use the 
intrinsic function KPS (FLX), to find the position, relative to 1, of the 
start of an embedded key in the file referenced by FLX, and you can 
use the intrinsic function KLN (FLX) to find the length of the key. 
These functions are described in the 57 70 BASIC Reference Manual. 

After the records are entered into CLASS, additional records can be 
added and will be stored in key-indexed order. 



Reading Records from a Record I/O File 

A record I/O file can be read sequentially, directly using a relative 
record number, directly by key index, or sequentially by key index. The 
method you use depends upon the requirements of your application. 
Following is a description of the four ways to read a record I/O file. 
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Sequentially 



The READ FILE statement is used to sequentially read a record I/O 
data file. For example: 

(j 1 OPEN FII.J:" FL'l , 'D3ii ' . ' P AYI\Ui..,!.,, ' , IN 



(j 9 R \i A U !••' 1 L E U S 1 N (■} I U ,, F !.., J. , A ^ii , B $ . C , D $ 
(i 1 (J l--'(j RM r; :i, u , C2 . NC l , i!;:5 



i i [,} 9 (i 

Notice that the file is first opened as an input file with FL1 as the file 
reference. The READ FILE statement uses the same file reference. 
The FORM statement (statement 100) specifies the format of the 
record. 

Each time the READ FILE statement is executed, the system reads the 
data in the next sequential record in the file. Thus, the records are 
read in the same sequence they were written to the file. 

It is not necessary to read the items in the same order in which they 
appear in the record. For example, the statement could be written: 

(i (i 9 R £ A D !■'■ 1 1 ■ E U S I N G .1. (J , E !.., :i. . E .. U 'li ,. B -^li ., A $ 

1. FORh PuS3:l. , NCi , PuS'll , CE , F'UG:!. 1 , C2U , PuS 

Nor is it necessary to read all the items in a record. If you were 
interested only in obtaining name information, you could use this 
READ FILE and FORM combination: 

9 (i R !;;: a d e i e e. u s i n g j. u o , e l i. .: a $ 

! j ;l. i) P' (J R M i--' (!) S 1 , C 1 u 

This combination might be helpful when you wish to insert test marks 
for each student. You could read through the file sequentially, obtain 
each student's record, display his name on the screen for verification, 
and enter the corresponding mark. 
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The READ FILE statement, like the GET statement, can contain an EOF 
clause to transfer control when the end of the file is reached. In the 
program shown below, the READ FILE statement causes program 
control to branch to statement 100 at the end of the file, which is used 
to print a message. 



This program shows how you can read each student's record to insert 
a test mark. The program also introduces the REWRITE FILE 
statement (see Updating Records), which is used to update an existing 
record, and shows how OPEN and CLOSE statements can be used 
with record-oriented files. 



^ Opens the file for 

2 D I 't'\ J$2'5 ^y"^ Input and output. 

1|- READF I LE US I NG 'l-^ ; FL :l. , J$ , EOF 1 D -« Branch to statement 

00II-5 FGRiM PGSl ; C ^^^^^^„^^^ 100 when all the 

"5 P R I i ! T J $ ^^ead name from the f i le. records are read. 

a 060 INPUT G 

7 R !;:: W R I r i;;: l-' :!: L E U B :i: HG 75, l-" 1... :i. , G — ■ _ U pdate the record 

7 5 !•• G R M P G S 1 :l. , P I C ( Z Z *n with the grade entered 

080 GGTG 'lO from the keyboard. 

010 PRINT 'END GF FILE -LA ST RECGRD READ' 

012 STGP 



Record Layout 



Name 



25 



Other 



Data 



Grade 



101 



103 



Statement 30 opens the file. ALL is a special keyword used with 
record-oriented files to indicate that both input and output operations 
can take place on the file. ALL is required if any rewriting operations 
are to take place. 

Statements 40 and 45 obtain the name information from the file. 
Statement 50 displays the name, allowing you to verify it and enter the 
corresponding test mark in statement 60. Statement 70 is the 
REWRITE FILE statement, which enters one data item into the record 
just read, the numeric variable G. Statement 75 says that the variable 
is to be entered beginning at position 101 of the record, in the format 
PIC{ZZ#), three digits with leading zeros suppressed. The remaining 
statements cause the program to cycle through all the records and 
close the file after the last record is handled. 
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Directly Using Relative Record Number 

To retrieve records directly by relative record number, specify the 
REC= clause in the READ FILE statement. If, for example, you want to 
access the Nth record, specify: 

70READ FILE USING 75, FL1, REC=N, C$, A$ 

The following example shows this method of record retrieval: 

010 DIM i:i$20 

020 OPEN FILE FLl ," DBO ', 2 ,* MASTER MN 

OOilO PRINT "INPUT REG* 

030 INPUT K 

0151 IF l<""0 GOTO 9 

060 READFILE USING 70 , FLl , REC==^=I< , X , D$ 

070 FORM NG10,G2 

080 PRINT X,D$ 

09 STOP 

In this example, file number 2 (referenced as FLl) on diskette drive 
one is opened for input. Statement 40 requests keyboard input, which 
is assigned to variable K in statement 50. Statement 51 tests for the 
end of the program. In statement 60 variables X and D$ are read 
from the file referenced as FLl, using the value of the variable K to 
access the record in the file MASTER. Statement 70 specifies the format 
for the data being read. The data is displayed (statement 80), after 
which the program branches back to request keyboard input again. 

Directly Using an index 

If an index file was created, records can be read from the master file 
using an index. In this case, both the master file and the index file 
must be opened: 

1 PEN F I LE FL2 , " D8 ' , 2 , * G R ADE M N 

020 OPEN FILE FL2 , ' D80 ' , 3 , ' INDEX MN , KEY 

1 

Specifies direct 
access by key index. 



V. 



102 



o 



If you wanted Smith's record, you would specify his name in the KEY 
clause in the READ FILE statement: 

Direct access using a key. 



[' {] \.> '■::.< N M '■'■'■'■ 'o n ,!. • !■■■ .: I'- . h . 

[1 7 . R E A B F I \ .. E U S 1 N G 7 5 , E I.. 

on '75 FORM ■■■■■ ■■■■ ■■■ 



l> , G^i; 



The 5110 will search for the record whose key matches in the index 
file, then will read the values from the master file record into the 
variables F$, and G$. 

The following example shows this method of record retrieval. 



01 n Din D:p2n , |<$:i. 

2 U P E. N E I !..= E. E L : 

3 (!) P E. N I"' 1 E E. E E 

M- ! j p R ;i: N T ' I N p u ■■(■ l< E. Y ■ 

05 INPUT !<$ 

06 READFILE USING 70. PL. 

7 P' R M N C 1 , C 2 

080 PRINT X,D$ 

n i-\ E i •; I j T G M- 



HAS r PR 
INDEX' 



IN, KEY 



l.i li y i J ^:> 1 i J r 



In this example, the specific record in file number 2 (referenced as 
FL1) is selected by the key value you enter in statement 50. If, 
however, the computer cannot find the key, it indicates an error unless 
you instruct it to take alternative action. For example, if you enter the 
key incorrectly (say you spelled the name SMIHT), the match would 
not be found. To protect program execution, include the NOKEY 
clause on the READ FILE statement: 



070 READ EI 
7 E E P. M ■•• 



T Ki n 



:N$ , E-;l> , 0$ , NGKEY 



!i it 



o 



The NOKEY clause tells the computer that if the matching key cannot 
be found, the program should branch to statement number 200. The 
NOKEY clause for indexed files is similar to the EOF clause for 
sequentially accessed files; it permits you to retain control of program 
execution if a particular condition arises. 

Records can be read sequentially by key using the index by opening 
the index file and master file and specifying the READ FILE statement 
without the KEY parameter. 
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Updating Records in a Record I/O File 

Part or all of a record in a record I/O file can be updated using the 
REWRITE FILE statement. When updating a record I/O file, the OPEN 
statement for that file must specify the ALL parameter. For example: 

0020 OPEN FILE FL2, 'D80', 3, 'MASTER', ALL 

The following sample program, which adds telephone numbers to I 

records in an existing name and address file, shows how you can use 
the REWRITE FILE statement to update a record I/O file: 



U i i I U h( !;:. il 

(i 2 (i R !:;! H 

U 3 ij :i: M N $ 2 ■:< , A ^1> 6 5 , T $ 1 2 

nni-iO DI-'E^N 1-ILE l"L2, 'DBO' ,3, ' HAIL . LIST ' , Al. 

(J (J 5 R E A li !■•' :[ ! ., E i J Q I N G 6 ii , !••" !.., 2 .. N $ . A $ , L (J !••' 1 2 i) 

060 FuRn C2'5 . C65 

i) 7' P R 1 N T N $ 

OOBO IKipUT T$ 

9 R E W R 1 T E F I L E U S 1 N G 1 , !•• L 2 , T $ 

0100 FORM I"- OS 91, CI 2 

;i. I G T 5 

1 2 !••' R 1 N J ' E. H D E J B ' 

i i 1 3 r\ T n. P 



When the file was originally created, each record contained space 
available for the telephone number and other data. After a record is 
read (statement 50), the name is displayed (statement 70) and the 
telephone number can be entered (statement 80). Once the telephone 
number is entered, the record in the file is updated in positions 91 
through 103 (statements 90 and 100) and the next sequential record is 
read. This process continues until the last record in the file is 
processed. After the last record is processed, an end of file (EOF) 
condition occurs and the program branches to statement 120. 
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If there is an index for the master file, you can access and update 
individual records without processing the file sequentially. For 
example, you could use the following program to update the telephone 
numbers of specific customers in an already existing name and 
address file: 



(1 (i ;i. ij D :i: M N $ 2 !5 , A $ 6 5 , ' r :!> 1 2 

(I (! 2 P E N !■• ]: !... i;- i'" I... 2 ,, ' iJ 8 d " , 3 , ' h A 1 !... . i... j; S T ' .. A 1 ., L 

030 OPEN !•■ ILL i'''L2., ' DBO ' , •[ , ' INIirX '' , ALL , KE'i 

i! 'I 1 N P U T !< ■!> 

0-;iO IF l<-:j>""' ' GOTU 120 

60 INPUT T$ 

'7 R E U P 1 "\ E E 1 1... ii: U B I N G 8 , i"' L 2 , !< L Y ■■■■ l< $ ; T ' $ ., N K 

8 (i !••' iJ R M !■' (J 8 9 1 , C 1 2 

090 GGT(') M-O 

:i. (j p R ]: N ' !' ' j-J G M A T C i-l i--' G G N L ' 

OliO GGTG M-0 

n •! 9 8 T P 



^''-■^ 10 



When this program is run, statements 40 and 60 request the 
customer's name and new telephone number. Then, if the name is 
found in the index file (KEY=K$), the master file is updated with the 
phone number (T$). If a name match is not found, the message NO 
MATCH FOUND is displayed (NOKEY=100), and the program 
requests the next name and telephone number. If a ' ' is entered as 
the name, the program branches to statement 120 and stops. 

If the KEY clause (KEY=) is used in the REWRITE FILE statement, no 
READ FILE statement is required to retrieve the record first. If the KEY 
clause is specified, the record matching that key is brought in from the 
file; thus, the REWRITE FILE statement with a KEY clause retrieves as 
well as rewrites. 

The REWRITE FILE statement can write over existing data or unused 
portions of a record, but must not change the contents of the field 
containing the key information. Fields not written over remain 
unchanged. 
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As another example of REWRITE FILE, assume that during the school 
term you give the students an extra credit project; their final grade will 
be raised by five to ten points depending on the quality of their work. 
Before the end of the term, you add in the extra credit for those 
students who handed in the project. The short program below 
illustrates how the REWRITE FILE statement can be useful in updating 
the records. 



V Li ;[ n N $ 2 '5 

:i. P R ]; N 1 ' I;:! N ' i" !::; R 8 T i.) D i;:; N ' ■[■ ' ' '■;! 

Olio INPUT N$,L 

1 2 1 F" N $ •"• ' I... A S J ' [■> '!' J. '7 U 

:l. 3 !■< E i-i R 1 T £ F I L E U B 1 N J 3 '•■: , I-' 

1 3 3 F R M i-' (j 8 1 M- ., !■' 1 C ( Z # ) 

1 M- G (!) ■ !' 1 1 J 

0130 FM--3[NT 'NO MATCi-l r-iji..lN.r! j-- 

0160 Giji'iJ 100 

017 STOP 



N A h E A N I j i:: X r R A C R E. IJ 1 "i H A R K 



R ■ , N:B 



Statement 100 prompts you for input information. Statement 110 
accepts the student name in N$ and the mark in E. Statement 120 
tests whether the end of input has been reached; assume the last 
input data item should have the word LAST as the student's name. 
Statement 130 enters the mark recorded in E into the file after the key 
has been matched with the name in N$. Statement 135 formats the 
mark into positions 140 and 141. 



More Information About Processing Record I/O Files 



Deleting Records 

Records in an indexed file can be made unavailable with the DELETE 
FILE statement specifying the key of the record to be deleted. For 
example: 



090 DP!!..,!::; 



!■• !.., . 



This statement would delete (by modifying the index file) the record 
whose key matched the character value in N$, or would branch to 
statement 130 if the key could not be matched. The actual record is 
not removed. The record key in the index file is flagged, making the 
record inaccessible by key. 
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Repositioning Files 

The RESET statement can reposition a file to its beginning. If RESET 
contains a KEY clause, the file is repositioned to the particular record 
associated with that key. If the RESET statement contains a REC= 
clause, the file is repositioned to the record specified by the REC= 
clause. 

Error Clauses on the EXIT Statement 

For record I/O files, the EXIT statement can specify these clauses in 
addition to the other clauses available: 

• NOKEY, to transfer control if no key satisfying a KEY clause can be 
found. 

• NOREC, to transfer control if the relative record number specified by 
the REC= clause cannot be found. 

• DUPKEY, to transfer control if a key specified for a new record 
already exists in a file. 

An EXIT statement specifying all error handling clauses could look like 
this: 

( ~') 1 8 (! !;• X J: T £. O \" Z O O , '[ (J E R R 120 , C N V 35 0, N 1< i;- Y :l. 3 , IJ U P !< !i- Y 2 U 

When using the EXIT statement, remember to include an EXIT clause 
on each appropriate input/output statement. For example, to refer to 
the EXIT statement above, the DELETE FILE statement previously 
illustrated could be written: 

(1 9 (j n i;;: i... r- j e e 1 1. e e i... 2 , i< i:;: y --^^ n $ , 1;;: x :i: ' i ' :i. b q 



o 
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The FORM Statement-Differences Between Print and Record I/O 

The FORM statement used with record-oriented files is similar to that 
used with PRINT USING in the following ways: 

• Both contain the C character specification. 

• Both contain the replication factor (see the IBM 5110 BASIC 



Reference Manual.) V^ 

• Both contain the PIC numeric specification, with the same digit 
specifiers and insertion characters. 

• Both contain the format control specifications X and POS. ^ 

• Both contain character constants (see the IBM 5110 BASIC 
Reference Manual.) 

The FORM statements used are different in the following ways: 

• With record-oriented files, the FORM statement does not contain 
the SKIP format control, because there is no need for a skip 
operation. 

• With record-oriented files, numeric data can be formatted using 

other specification codes besides PIC. Additional specification ^ 

codes are: (^ 

NC 

PD 

S 

L 

B 

B, NC, and PD are used to store and retrieve numeric data in special 
internal formats. Except for one use of NC, they are not further 
discussed here; additional material on these codes can be found in the 
BASIC Reference Manual under "FORM Statement. ' 



r 
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The NC Specification 

The one use of NC applicable to this discussion is in its relationship to 
PIC. PIC can be used only in output operations; thus, it can appear in 
FORM statements related to WRITE FILE and REWRITE FILE 
statements, but not in those related to READ FILE or REREAD FILE 
statements. To read data that was written using PIC, NC is used, 
specifying the number of positions in the record to be read. For 
example, 

NC4 
would read four positions of a number. 
If a number were written using this PIC specification: 

PJC(###) or PIC{ZZ#) 
the NC specification to retrieve it would be: 

NC3 

To retrieve only the first two of these digits, you would specify NC2. 

Earlier, this FORM statement was used to enter the two-digit numeric 
variable E into the file called GRADE: 

( j :l. 3 •••■ i'" R n P S 1 >■]■ i) , P 1 C k Z '? ) 

To retrieve that value, you could use this FORM statement: 

(i 5 5 !••' I) R n P U S 1 U- 1 i = N i; 2 

NC can also specify the number of decimal digits in a number, in the 
following manner: 

NC5.2 
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This specification says that five positions are to be read, and a decimal 
point is to appear before the two rightmost digits. That is, the five 
positions could look like this: 

12.34 would be read as 12.34 
1.234 would be read as 12.34 
1 1 234 would be read as 1 1 2.34 

If an item were written using this PIC specification, 

PIC(####.##) 
The NC specification to retrieve it would be: 

NC7.2 or NC7 

The first number specified in NC is the field width, that is, the total 
number of characters to be read, including digits, decimal points, 
commas, dollar signs, etc. The second number is the number of 
decimal digits. The following are examples of how PIC and NC can be 
used in combination: 

If PIC were specified: NC would be specified: 

PIC(###.##) NC6.2 or NC6 

PIC{ZZZ.##) NC6.2 or NC6 

PIC{$$,$$$.##) NC9.2 or NC9 

PIC(ZZBZZBZZ) NC8 or NC8.0 

The S and L Specifications 

The specification S indicates that an item in a record is in short-form 
precision. A number in short-form precision takes up four positions in 
a record. If S is specified for an input operation, the value in the 
record is moved to the variable specified in the READ FILE or REREAD 
FILE statement; if the program is in long form precision, such a value 
is extended to long-form. If S is specified for an output operation, a 
short-form value is written from the variable specified in the WRITE 
FILE or REWRITE FILE statement into the record. 

The specification L indicates long-form precision and is the long-form 
counterpart to the S specification. A number in long-form precision 
takes up eight positions in a record. 
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For an input operation, the value in the record is moved to the variable 
specified in the READ FILE or REREAD FILE statement; if the program 
is in short-form precision, long-form items are truncated to short-form 
before being used. For an output operation, a long-form value is 
written into the record from the variable specified in the WRITE FILE 
or REWRITE FILE statement. 



After all the marks for five tests and the extra credit for the project 
have been entered into the file GRADE, the first record in the file could 
look like this: 



BUTLER, J.S. 



323W. 76 STREET, N.Y.,10023 



|i92ti84100|!)80^7 7 



26 



101 



140 150 



o 



o 



If you wanted to print the final mark and the honors status, you could 
use this program: 



(j (i 1 I J 1 n GkS) , M •:!> :l. . N $ 2 5 

2 p R I N T I..1 S I NG 25, i" I..: P , ' P I N A i... M A i^ K ' ., ' l-i N R S ' 

2 5 I"' (J P. M !•' Q S 6 , C , !•■ (J B 3 5 , (' • ■ P (J 9 5 ,, ("; , S K ]" !•' 2 

03 ni-'EN FILE Fi..,2 , ' D8U ' ■ 2 , ' GRADE ' , ALL, 

3 P P. A 'D P I !... !■■ i J 9 1 N G 33, P L 2 , N $ ; h A F G , P. , P. G P :!. J. 

i ! n '--i r\ P G P M P G G I • G- , P G S 1. 1 : 3 '-"^ N 9 3 : P U G 1 '-i- , N G- 2 

6 A •••■ G U H ( (3 ) / 3 •• ■ P. 

63 ]: !■■■ A :;; ;i. o o g g t i j 7 o 

67 A- 10 

70 h$"" ' -v' ' 

7 :i. 1 P A ii: 9 G (J T (j 9 

7 2 M $ ■"• ' 

9 p R i: N T U 9 1 N G 9 !=;; , p i., p , N $ , A , M ^l:- 

9 3 P G R h i-^ G 9 6 . 9 . P 9 9 3 3 ., P 1 G ( Z Z ^^ . ¥v ) . P (J G 3 , G .. 9 1< j: I"' :!. 

9 R i:;: u r i j e p 1 1... e g g i n i^ 93, p l 2 ; a , h $ 

93 !•• iJ R M !•' G 9 :i. 3 , P 1 1; ( Z Z Z , Z ) , P 9 :!, 3 3 , G 

1 G 9 7 i J 3 
1 1 9 7 9 !•:■ 



Statement 10 defines an arithmetic array, G, with five members, a 
character variable, M$, with one character, and a character variable, 
N$, with 25 characters. The array G is to hold the five marks for each 
student, M$ is to hold the honors character, either a + or a blank, and 
N$ is the name field. 
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Statements 20 and 25 format a printed heading. Statement 30 opens 

the file for input, output, and updating operations. ^ 

Statement 50 reads the file according to the format shown in 

statement 55. Remember that although GRADE is a key-sequenced 

file, its records can be read in sequential order if the KEY clause is not 

specified. From statement 55 we can determine that the items being 

retrieved are the name, placed into N$, five sequences of three digits ■ 

(the five marks beginning in position 101), placed into the array G, and ^ - 

a two-digit number for extra credit, placed into E. 

Statememt 60 sums the five marks, divides the sum by 5 to find the 

average, then adds in the extra credit recorded in E, and puts the /^ 

resulting value into A. \^ 

Statements 65 through 72 reduce any mark that exceeds 100 and 
analyze the value of A. If the value equals or exceeds 90, a plus sign, 
indicating honor student, is placed into M$. If the value of A is less 
than 90, M$ is assigned a blank. 

Statements 80 and 85 print the student's name {N$), the final mark 
(A), and the honors code (M$). 

Statements 90 and 95 enter the final mark and the honors code into 
the record, beginning in positions 130 and 135, respectively. 

Statement 100 branches back to statement 50, and the next record is 
read. After all records are read, the program ends. 

Output from this program could be the following: 

Print 

Position 6 35 50 

NAME FINAL MARK HuNuRS 

BUTLER. J.B, 92.2 -• 

CG(Jl< , A . B ■ B2 , 



SMITH, CA, 8M- . 
YOUNG ; W . 97 . 



V- 
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Summarizing Record-Oriented Statements 

The OPEN FILE statement explicitly opens a record-oriented file. If IN 
is specified, the file is opened for input; if OUT is specified, it is 
opened for output; if ALL is specified, it is opened for both operations. 
If the KEY clause is specified, an index file is associated with a master 
file. 

The WRITE FILE statement writes a record. In a directly or 
sequentially accessed file, each record is stored in the order in which 
it is entered. In an indexed file, each record is stored in the order in 
which it is entered, and the record key is stored along with the relative 
record number in the index file. When you are retrieving or writing 
records by key, performance is improved if the index file is sorted into 
order by key. 

The READ FILE statement reads a record. In a sequentially or directly 
accessed file, each record is read sequentially, or directly by relative 
record number when the REC= clause is specified. In an indexed file, 
each record is read sequentially if the associated index file is not open. 
If the index file is open and no KEY clause is specified, the records are 
read sequentially by key. If KEY is specified, the record having a 
matching key is read. 

The REREAD FILE statement makes the last record previously read 
available again, regardless of whether the record was read sequentially 
or by key. 

The REWRITE FILE statement alters an existing record, provided that 
the file was opened with the OPEN FILE statement specifying ALL. In 
a file accessed sequentially, the last record is read and rewritten. In 
an indexed file accessed sequentially by key, the last record read is 
read and rewritten if no KEY clause is specified in the statement. If 
KEY is specified, the record having a matching key is read and then 
rewritten. If the REC= clause is specified, the record with a matching 
number is read and rewritten. 
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The RESET FILE statement repositions a file to its beginning. In a file 
accessed sequentially, if a KEY or REC= clause is specified, the file will 
be repositioned to the particular record associated with that key, or 
record number. 

The DELETE FILE statement deletes a record from an indexed file. The 
KEY clause is required in order to identify the record being deleted. 

The EXIT statement specifies the statement number to which control 
should be given if a particular input/output error occurs. The error key 
keywords that can be written in the statement are EOF, lOERR, CONV, 
NOKEY, NOREC, and DUPKEY. 

The CLOSE FILE statement explicitly closes a record-oriented file. 

The FORM statement specifies the format of fields in record-oriented 
files. 
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Chapter 12. Control of Your 5110 



This chapter discusses the following topics concerning controlling your 
5110: 

• Using the display screen for input and output 

• Using procedure files to replace keyboard input 

• Using the system control functions (FILE FLS) 

• Using the UTIL command 



USING THE DISPLAY SCREEN FOR INPUT AND OUTPUT 

You can use the WRITE FILE and READ FILE statements to write and 
read data from anywhere on the top 14 lines of the display screen. 
This allows you to use different screen formatting and data entry 
techniques. For example, the screen could be formatted as follows: 



r 



Pa ye e ' s Name 

Street Address 

Ci ty 

State 

Z i|:) 

R e a s \i 

Do I I ar A mo un t 

A c c II n t i n ci C o d e 



Data being 
entered by 
the operator. 



6 



Alex IJ r y d e n 

i|Oi-l- N F Oder a \ Hw: 

Boca Ra 

t 

The cursor indicates 
where the data 
entered by the 
operator is displayed. 



'rompting messages displayed by the program. 
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When used for input and output, the display screen is treated as a 
record I/O file, similar to a record I/O file on tape or diskette. You 
must open the display screen for input/output using device 002, for 
example: 



0:1.0 ui-'EN 



Specifies read and 

write operations 

■Input/output to the display screen 



The character positions on the display screen are numbered as 
follows: 



15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 





1 

65 
129 
193 
257 
321 
385 
449 
513 
577 
641 
705 
769 
833 



64 
J28^ 
-192 
256 
320 
384 
448 
512 
576 
640 
704 
768 
832 
896 



For example, character 
position 130 is the 
second character position 
on line 13. 
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The following is a sample program that writes data to and reads data 
from the display screen: 

(J .1. D I M A $ 5 (J 

2 1'-' 1:- N f I i... E !■• i.., 1 , ' (5 2 ' , A I.., I.,, 



'in PUB257, C:i.!5, pn928!:i 

! i:" 



l.l i..l '■!■ 1.1 

'"i (J 1< !::. M i.i 1" .1. i .. I::. U ?:) J. 1^! U O U ., i" i... .1. .. i^i 

060 F'URM PuS28!5,C5n 

7 R E U R :[ ' ! ■ i;- !•• I L E. U S I N (3 Q , F !... 1 , 

OOBO RGRM PUS769 , CIS, X'vi, CuO 

90 STOP 



■!-IE MEG B AGE 



When this program is run, statements 030 and 040 write ENTER A 
MESSAGE starting at position 257 (line 11) on the display screen. The 
cursor is then placed at position 285 as specified in statement 0040 
(POS 285), and the program waits for input from the keyboard. The 
display screen looks like this: 



V 



M n 1::. • ::■ /;> i-i [:> 1 



Flashing Cursor at 
position 285 



0!;;. 



o 
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Now, when a message is entered from the keyboard, the display 

screen looks like this: /^~"\ 



ENTi;;:R a message this data is entered on line II 



THE MESSAGE IS: THIS DATA IS ENTERED ON LINE li 

RUM 

R E A D Y 
V 

Note: You can use the WRITE FILE or REWRITE FILE statement to 
position the cursor for a following READ FILE statement. 



V. 






050 316 



Then when the EXECUTE key is pressed, statements 50 and 60 read 
the message (up to 50 characters) from the display screen, and 
statements 70 and 80 rewrite the message on line 1 1 and write the 
new data starting in position 769 (line 3). The display screen looks like 
this: 

ENTER A MESSAGE THIS DATA IS ENTERED ON LINE I 



r 



■~\ 



r 
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USING PROCEDURE FILES 
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A procedure file allows you to set up and execute a series of 
programs without the need for operator intervention. The procedure 
file consists of a series of BASIC statements, commands, or data 
created using the LOAD0,DATA command or a BASIC program. After 
you enter LOAD0,DATA, the system displays a line number followed 
by a colon. You may then enter statements, commands, or data just 
as you would for a standard data file. Lines in a procedure file have a 
maximum length of 64 characters. After you have entered the lines in 
your procedure file, you can use the SAVE command to save the file 
on tape or diskette. Following is a sample procedure file: 



L GADOID AT A 








0:1.0 ILGAD S 








020 : RUN 








030 ILGAD 7 








OOi-lO : RUi^^ 








050 ;LGAD 9 








060: RUN 








070 : ALERT INS 


:;:rt payrgli. 


. d:i:si< 


Ell 


ooeoiLGAD :i.:i. 








090: RUN 









E ENTER GG TG CGNTINUi;! 



After these lines are entered, the file can be saved with this SAVE 
command: 

SAVE M-. ' PRGC ' , RECL:=6>I-. D80 

This command saves the file (named PRGC) with a record length of 64 
characters in file 4 on diskette drive 1 . 

The procedure file is accessed when you enter a PRGC command. A 
PRGC command instructs the system to begin using the procedure file 
in the indicated file, as shown below: 



PRGC M-.DBO 

The system then loads file 4 and begins executing the lines in the file, 
one record at a time. In the example above, after the program In file 9 
has been run, the procedure file executes the ALERT command, which 
sounds an audible alarm and causes the display screen to flash. The 
operator must press the ATTN key to stop the flashing message 
INSERT PAYROLL DISKETTE-ENTER GG TO CONTINUE. If the RUN 
IN=P command was used, data may not be entered from the keyboard. 
Therefore, for each INPUT statement of a program being executed, 
there must be one entry available via the procedure file. After the 
operator enters GO, the procedure file loads file 1 1 . Other commands 
valid in a procedure file are discussed in the /BM 5110 BASIC 
Reference Manual, SA21-9308. 
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USING THE SYSTEM CONTROL FUNCTIONS 

A unique 35-byte 5110 internal storage area is provided to allow you 
to dynamically control the operation of your system. This storage area 
is called file FLS (system file). Using file FLS you can get information 
about the system, such as: total work area available, work area 
available for variables and buffer storage, number of lines printed on 
the printer, and the return code set by the las^ STOP or END 
statement. File FLS also allows you to set or use system functions, 
such as turning the display screen on and off, sounding the audible 
alarm, selecting a character set, entering lowercase alphabetic 
characters, turning trace on and off, rounding precision, file FLx, and 
number of print lines per inch. You use the READ FILE FLS statement 
to obtain the information about the system, and the WRITE FILE FLS 
statement to set or use the system functions. (File FLS is always 
open, therefore, an OPEN statement is not required before file FLS is 
used. 



READ FILE FLS Statement 

You can obtain the following list of information about the system 
using the READ FILE FLS statement: 

Information File FLS Position 

Total work area available 1-5 /^~^ 

Work area available for variables 6-10 V--^ 

and buffer storage 

Number of lines printed 11-15 

Reserved 1 6-1 8 

Return code set by last STOP or 19-21 

END statement 

Unused 22-35 

For example, the statements: 

0320 READFILE USiCNG 330 , FLS , A , B , C , D 

0330 FORM NC5,NCI5,NC5,P0SJ.9,NC2 /"^ 

place the total work area available in variable A, the work area 
available for variables and buffer storage in variable B, and so on. 

Note: The number of lines printed is the count of the print head 
movements rather than the form's movements, because a 00 line 
spacing may be specified. 
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WRITE FILE FLS Statement 

You can set or use certain system functions by using the WRITE FILE 
FLS statement to place the appropriate code in file FLS, as follows: 



File FLS 
Position 



System Function 

Turn the display screen off 

Turn the display screen on 

Turn the audible alarm on 

Turn the audible alarm off 

Pulse the audible alarm 

Set keyboard input to lowercase 

character mode 

Set keyboard input to standard 

BASIC character mode 

Turn the display trace on 

Turn the display trace off 

Turn the printer trace on 

Turn the printer trace off 

Set rounding precision 

File FLx 

Set number of print lines per inch 10-11 

(2.54 centimeters) For example, 

the statements 



Code 

F 

N 

S 

Q 

A 

L 

U 



3 


N 


3 


F 


4 


N 


4 


F 


5-6 


Oto 15 


7-9 


FLO-9 


10-11 


8-99 



o 



U 2 o y H .1. 'i I::. !■• .1. !.., i::. I j '6 J. N U 2 V U ; 1 - !.., '6 , 1.., 

2 9 (i i"' iJ R M !•' (J B 2 , (": 

place the character L in position 2 of file FLS. This causes the 5110 to 
be in lowercase character mode. That is, lowercase alphabetic 
characters are entered from the keyboard unless the shift key is used. 
The 5110 remains in lowercase character mode until the 5110 is 
changed back to standard BASIC character mode or the work area is 
cleared. 
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Additional Use of File FLS 

You can use positions 22 through 35 of file FLS to store data. That is, 
data written to these positions using the WRITE FILE FLS statement 
can be read using the READ FILE FLS statement. Using these 
positions of file FLS gives you the unique capability to write data in 
numeric form and then read that data in character form, and vice 
versa. For example: 



i. 1 i 
ij :!. 2 ( 
1 3 1 
:!. u. ( 
J. 5 ( 
1 6 ( 



J. N i-' Li i N 

WRITE FILE USING 130 , ELS. i 

I) 1 M A $ 8 
] i^: E A I J f 1 L E U S 1 N G 1 6 , !•■ L B , A ■'■ 
) EGRM PiJS22,C8 



The numeric input (N) is written to file FLS positions 22 through 30 
(statements 120 and 130); then the character equivalent of N is read 
from file FLS positions 22 through 30 (statements 150 and 160). 



Using the UTIL Command 

You can use the UTIL command to perform the following system 
control operations: 

• List the file directory 
o Rename a file 

• Change or display a diskette volume ID and owner ID 

• Drop a file 

• Write-protect a file 

• Transfer control to the Diskette Sort feature, if installed 

• Change the system default device 



V,. 
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The sort program, if installed, is internal to your 5110. You can 
transfer control to the sort program by using the statement: 

UTIL SORT 

This program allows you to sort records in a data file according to 
specified fields within the records. See the IBM 5110 Customer 
Support Functions Reference Manual, SA21-9311, for a complete 
description of the sort program. 

Normally, the 5110 Model 1 default device is E80 (the built-in tape 
unit) and the 5110 Model 2 default device is D80 (diskette drive 1). 
You can use the UTIL command to change the system default device. 
For example: 

UTIL SYS D'l-O 

changes the default device to diskette drive 2. 

See the IBM 5110 BASIC Reference Manual, SA21-9308, for a 
complete description of the UTIL command and functions. 
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Chapter 13. Using Arrays 
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An array is a simple way to keep together data items that are related. 
For example, if you want to keep the average temperature for each 
month of the year, you could construct an array having 12 data items. 
The DIM statement can be used to define an array: 

(5 1 (i i:i :i: m t (12) 

This statement defines an arithmetic array, T, containing 12 items, or 
members. The computer recognizes an item as an array by the 
appearance of parentheses. The parentheses are used to define the 
number of items in the array. 

Arrays can be arithmetic or character. For example: 



U U '■:!. U I.I .1. ri 1 % 1 'd \l'y.) 

This statement defines a character array having 12 members. 

A DIM statement can specify the length of the members of a 
character array at the same time it is defining the array: 

020 DIM T$ 10(12) 

Here, each member of array T$ is assigned a length of 10; without the 
length specification, each member, like other character variables, 
would be assumed to be 18 characters long. All members of a 
character array have the same length. 
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NAMING ARRAYS 

Character arrays are named in exactly the same way as character 
variables; that is, the name must consist of a single alphabetic 
character (including the alphabet extenders) followed by the currency 
symbol(s). Thus, the name A$ can name either a character array or a 
character variable. Arithmetic arrays are named in almost the same 
way as arithmetic variables. An arithmetic array name may consist 
only of a single alphabetic character (including the alphabet extenders) 
you may recall that arithmetic variables can also be named with an 
alphabetic character followed by a digit. Thus, the name A can be 
used for either an arithmetic array or arithmetic variable, but the name 
A1 can be used only for an arithmetic variable. 



DEFINING ARRAYS 

Defining an array in a DIM statement is known as an explicit 
declaration. There is another way to define an array through implicit 
declaration; that is, by referring to a member of an array in a program 
statement without having defined it first in a DIM statement. When 
you refer to an array member without explicitly declaring it in the DIM 
statement, the computer will recognize that you are working with an 
array and will automatically allow space for 10 members. To refer to a 
particular member of an array, you specify it by its location in the 
array. For example, T(1) refers to the first member of the array named 
T, T(2) refers to the second member, T(3) refers to the third member, 
and so on. Each number giving the location of a particular member is 
called a subscript. If the following statement appears in the program: 

M- ij T ( 9 ) "" 6 9 

only the ninth member of T would be assigned the value 69; all other 
members would remain unchanged. 

Remember that an array defined implicitly is assumed to have 10 
members. So in order for array T to contain 12 members, we must 
explicitly define it. If an array has very few members (for example, 
two or three), it would be wise to use a DIM statement, such as: 

Ij 1 (i T.S 1 H A ( 2 ) , B ( 3 ) 

The DIM statement, in addition to defining the number of members in 
the array, also defines the number of dimensions in the array. 



v.- 
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So far, we have discussed only one-dimensional arrays. In BASIC, you 
can also have arrays of two dimensions. Assume that values have 
been assigned to array T, such that: 



T ( :l. ) 
1(2) 
1(3) 
r ( i-i- ) 

r ( 15 ) 

1(6) 
T ( 7 ) 

■r ( B ) 
r ( 9 ) 
r ( J. ) 
r ( :l. 1 ) 
1(12) 



31 
M-3 
'•I-2 
57 
6i|- 
73 
79 
79 
69 
158 

l.|.L|. 
•7 Q 



Let's assume that these values represent the average temperatures for 
12 months; T(1) represents January's average, T{2) February's, and so 
on. 

For various reasons, another programmer might want to consider the 
year as divided into four quarters of three months each; he could 
define his array (call it M) as a two-dimensional array, as follows: 



i) 1 !;J 



In this statement, array M is defined as a two-dimensional array 
containing 12 members (the product of 4 and 3), just like array T. The 
difference is that the members of M are distributed over two 
dimensions, whereas in T they are distributed over only one 
dimension. Conceptually, the two dimensions of M can be thought of 
as rows and columns-four rows and three columns. The first value 
would be identified as being in the first row and the first column, or as 
M(1,1); the second value would be in M(1,2), the first row, the second 
column; the third in M(1,3), the first row, third column. The fourth 
item is M(2,1), or the second row, the first column; the fifth item, 
IVI(2,2), would be in the second row, second column, and so on. 



Using Arrays 127 



Assuming that the same temperatures assigned to array T are 
assigned to array M, notice the difference in the way each item is 
referred to: 



Array T 

T •: 1 ) 

7(2) 

J ( 3 ) 

r ( i|- ) 

1(5) 

r ( 6 ) 
.„. ^ ._, ^ 

J ( 8 ) 
1(9) 

r ( :i. ) 
1 ( :l. .1. ) 
1(12) 



r a -i, 


: u r e 


Arr^ 


)y M 


31 




M ( :i. , 


:i. ) 


M-3 




M ( :l. ; 


,2) 


ii2 




M ( :l. . 


,3) 


57 




M(2; 


, 1) 


6'l- 




M(2; 


,2) 


73 




M(2. 


,3) 


79 




M(3; 


, ;!. ) 


79 




h(3. 


,2) 


69 




M ( 3 , 


,3) 


5& 




M ( M- . 


, :l. ) 


L|.l.|. 




M ( 'I- , 


,2) 


39 




M ( l|- ; 


,3) 





Co 


I Limn 




R (J hi 


1 


'} 


3 


.1. 


31 


i|-3 


i|-2 


7 


57 


6i|- 


73 


3 


79 


79 


69 


i.|. 


58 


i.l.i.|. 


39 



Two subscripts are needed to refer to a particular member of array M; 
for example, M(3,1) refers to the temperature for July, the first month 
in the third quarter. 

Note the difference between a subscript and the array dimension 
specification. A subscript refers to a particular member of an array. It 
can be any valid arithmetic expression (for example, a numeric 
constant or an arithmetic variable). The dimension specification 
defines the number of members of an array. The dimension 
specification can appear only in a DIM statement and it must be 
indicated by unsigned integers only. An array name cannot appear in a 
DIM statement if the array has already been defined-either implicitly 
by usage or explicitly by definition in a previous DIM statement. 

You can implicitly define a two-dimensional array by using it in a 
program statement without defining it in a DIM statement first. You 
would do this by referring to a particular member, using two 
subscripts. For example, A{4,3) would refer to the item in the fourth 
row, the third column of array A. A two-dimensional array defined 
implicitly will be assigned the dimensions (10,10), or 100 members 
altogether. If the value of either dimension is to exceed 10, however, 
you must use a DIM statement to define the array as you would for a 
one-dimensional array that exceeds 10 members. Remember that DIM 
statements to define arrays must appear in the program before you 
refer to the array. 
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PLACING VALUES INTO ARRAYS 
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Initially the system sets all arithmetic arrays to zero and all character 
arrays to blanks. Arrays can be given other values through 
assignment, READ, and INPUT statements, just like other variables. 
The assignment statement can assign values to individual array 
members or to all the members of the array. Here are some examples: 

0300 A(i|;!5)====:l.n 
32 HAT A""^:!5) 

0330 r* $ ( M- ) ==== * 1-' i-t 1 1... A n i;;: i... p i-i :i: a ■ 

The first example assigns the value 10 to the member in the fourth 
row, fifth column of the two-dimensional arithmetic array A. In the 
second example, the keyword MAT identifies A as an array,, and the 
value 15 is assigned to all the members of the array. (This is a special 
form of the assignment statement and is known as the array 
assignment statement.) In the third example, the value PHILADELPHIA 
is put into the fourth member of the one-dimensional character array 
P$. 

When specifying values by means of READ and INPUT statements, 
you must remember that every array member that is to receive a value 
must be represented in the statement, and a value must be supplied 
for each member specified. Let's look at these statements: 

010 DIH TCI. 2) /r:|i:l.8(:l.2) 

015 PRINT "ENTER 3 TEHPERATUREB , THEN THREE MONTHS 

020 INPUT T ( 1 ) ; T < 2 ) /r < 3 ) . T$ (1 ) . T$ ( 2 ) , T$ ( 3 ) 

The DIM statement defines the arithmetic array T and the character 
array T$, each with 12 members. The INPUT statement states that 
values will be supplied at execution time for the first three members of 
each array. Execution of the INPUT statement causes the computer to 
display the question mark (?). A valid response would be: 

31,43,42,JANUARY,FEBRUARY,MARCH 

The first three values are entered into T{1), T(2), and T(3), respectively. 
The next three values are entered into T$(1), T${2), and T$(3), 
respectively. 
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The following statement can be used to enter values for the arithmetic 
array A, consisting of three rows and four columns: 

n020 DIM A<3,i|-) 
030 MAT INPUT A 

When this statement is executed, the computer displays a question 
mark, and you can enter the three values for the first row: 

The system continues to display the question mark until you have 
entered values for all matrix positions. 

Another way of assigning input values to arrays is through use of a 
FOR/NEXT group in conjunction with the READ and DATA statements. 
For example, if you wanted a list of 15 numbers assigned to an array 
named B, you could write: 

0:1.0 DIM B<:l.r^:) 

02 FOR I :::::!. TG 1 5 

030 READ B<I) 

OO'IO NEXT I 

050 DATA 2 , 3 , 5 /? , :l. 1 , 13 , 17 ; 19 , 23 , 29 , 31 , 37 , M-l , I-I-3 , 1-I-7 



The subscript I is used to step through the values in the data table. 
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REDIMENSIONING ARRAYS 

Once an array has been dimensioned by a DIM statement, it cannot be 
explicitly dimensioned again. But it can be redimensioned; that is, the 
array can be given new dimensions. A one-dimensional array can be 
redimensioned into a two-dimensional array, or it can be 
redimensioned into a one-dimensional array with a different number of 
members. Similarly, a two-dimensional array can be redimensioned 
into a one-dimensional array or a two-dimensional array having a 
different number of members in either or both dimensions. The rule 
to remember when redimensioning an array is that the total number 
of members in the new array may not exceed the total number in the 
original array. For example, the array M(12,10) has 120 members, the 
product of 12 and 10. It can be redimensioned as long as the new 
array does not contain more than 120 members (it can contain fewer). 
Thus, M(12,10) may be correctly redimensioned to M(40,3), or M(100), 
but not to M(40,4). 

One way to redimension an array is to state its new dimensions right 
after the array name in the array assignment statements. For example, 
in the array C(5,5) to C(3,4), you could use the array assignment 
statement: 

0010 MAT C(3,il)=::(0) 

The word MAT is used to indicate that operations are to be performed 
on the entire array, or matrix. This statement changes the array 
dimensions to (3,4) and assigns the value zero to each member of the 
newly dimensioned array. 
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DIFFERENCE BETWEEN MAT AND LET 

It is important to note the distinction between the array assignment 
statement, identified by the word MAT, and the LET assignment 
statement. 

The following example shows a sequence of assignment statements 
and the output from each one. None of the statements are equivalent. 

.... , , ' ..... roooi 

u u 1 U i.t 1 n i; (. 2 .. .5 .)- ' — Array C is initialized to 

LoooJ 

020 li;;:t i:;(2. i )^=^:;i.- 



Array C is initialized to 

030 MAT C-"(5) 

OOMO MAT C(3.2)""(8). "^ Array C is initialized to 



pool 
LiooJ 





Array C Is initialized to 
Variable C is 9 



[3 



Statement 10 defines arithmetic array C as a 2x3 array and initializes 
each member to 0. Statement 20 assigns the value 1 to a member in 
the second row, first column of the array. Statement 30 assigns the 
value 5 to all members of the array. Statement 40 redimensions the 
2x3 array into a 3x2 array and assigns the value 8 to all members. 
Statement 50 does not refer to an array but to an arithmetic variable, 
C, and assigns the value 9 to it. BASIC allows you to use the same 
name to represent both an array and a simple variable in the same 
program. 

The array assignment statement can also assign the values of an array 
to another array, as long as both arrays have identical dimensions. 
Let's look at this example: 

0:1.00 DIM Y(L|) ,Z(»+) 



0150 MAT Y •== (A«B) 



01.80 LET \i2)^15 



020 MAT Z-===Y 
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Statement 150 assigns the value of the expression A*B to all the 
members of the array Y. The expression must always be enclosed in 
parentheses. Statement 180 assigns the value 15 to the third member 
of Y. Note the difference between the LET statement and the MAT 
statement. Statement 200 assigns the values in array Y to array Z. If 
the only change made to array Y between statements 150 and 200 
was the assignment made in statement 180, array Y will contain the 

O values A*B in members 1, 2, and 4 and the value 15 in member 3. 

Array Z will be assigned these values in the corresponding members. 

In order for the values of one array to be assigned to another, both 
arrays must have identical dimensions. For example, if Z had the 
dimension (5) or (2,2), it would have to be redimensioned to the 
dimensions of Y before it could receive Y's values. 



ARRAY OPERATIONS 

A number of different operations can be performed on arrays. 
Arithmetic arrays can be used in simple arithmetic operations, such as 
adding or subtracting the values of members in different arrays, and in 
true mathematical matrix operations such as matrix multiplication. 
Additionally, values in both arithmetic and character arrays can be 
indexed in ascending or descending order. Arrays used in arithmetic 
operations must have the same number of dimensions. Let's look at 
some of the operations available. 



Array Addition and Subtraction 

Example 1 : 

0010 DIM X(5) ,Y(5) ,Z(5) 
02 MAT X==Y+Z 

In this example, each member of the array X is to be assigned the 
sum of the corresponding members of the arrays Y and Z. The values 
of Yd) and Z(1) are added, and the sum is assigned to X{1); the values 
of Y{2) and Z{2) are added and assigned to X{2), and so on. 

Example 2: 

0030 DIM X(5) ,Y(5) ,Z(5) 
OOM-O MAT X==Y-Z 

This example is like the first example, except that the array X is 
assigned the difference between the corresponding members of the 
arrays Y and Z. 
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Scalar Multiplication 

Scalar multiplication is the process whereby each member of an array 
is multiplied by the same number. 

Example: 

0035 DIM A(10,5) ,B(V\) 
OOM-0 MAT A CI. "I- )::::( LI- ))tB 

In statement 40, A is redimensioned to correspond to the dimensions 
of the array B. Then, the value in each member of B is multiplied by 4 
and the product is assigned to the corresponding member of A; B(1)M 
is assigned to A(1), B{2)*4 to A(2), and so on. 



Indexing Function 

Indexing operations can be performed on character as well as on 
arithmetic arrays. Character arrays are indexed alphabetically, 
arithmetic arrays numerically. Arrays can be indexed in ascending or 
descending sequence by the AIDX and DIDX functions, respectively. 

Example: 

00:1.0 DIM A$:l.e(5) ,B(!5) 

020 DATA ' DAN " , ' MEL " , ' GLEN " , " DAVE " , " BILL ' 

OO'iO MAT READ A$ 

0!50 MAT PRINT FLP,A$ 

60 MAT B~=AIDX(A$) 

070 MAT PRINT FLP.B 

The printed output would be: 

DAN MEL GLEN DAVE 



5 1 <l- 3 

The numbers indicate the ascending character sequence of the names 
entered according to the order in which they were entered. For 
example, the 5 indicates that the fifth name entered (BILL) Is the 
lowest character value entered, the 1 indicates that the first value 
entered (DAN) is the next lowest, and so on. 
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The following statements could be added to print the indexed matrix: 

080 I"" OR T""! TO ':5 
9 !•• R :[ N T F" !.., !••' . A 1> ( B ( ]; ) ) 
0:1.0 N!::!)<T I 
The printed output would be: 



H i i... i.. 
DAN 
Li A V !:: 
G !...!:;> 
MEL 



Matrix Multiplication 

Matrix multiplication is the process whereby the matrix product of two 
arithmetic arrays is assigned to a third array. All three arrays involved 
in matrix multiplication must be two-dimensional. 

Example 1 : 

0065 Dili X(2,2) , Y(2,2) ,Z<2,2) 
070 MAT Z=XMY 



ned Fa b] and Y contained [e f H 
Lc dj [g hj 

^ 



If X contai 



the values of Z j k , would be constructed as follows: 



i = a*e + b*g 

(sum of members in first row of X times members in first column of Y) 

k = a*f + b*h 

(sum of members in first row of X times members in second column of Y) 

I = c*e + d*g 

(sum of members in second row of X times members in first column of Y) 

m = c*f + d*h 

(sum of members in second row of X times members in second column of Y) 
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All the arrays shown in example 1 are two-dimensional, square, and 
have the same number of members. Arrays used in matrix 
multiplication need not be square or have the same number of 
members, but must be two-dimensional and comformable. Look at 
this example: 

075 DIM A(2,i|) ,B(i|/3) ,C(2;3) 
080 MAT C::=A«B 

Remember that the first subscript in a two-dimensional array indicates 
the number of rows, and the second subscript indicates the number of 
columns. (In the example above, A has two rows and four columns.) 
To be conformable for matrix multiplication, arrays must meet these 
requirements: 

• The number of columns in the first array to be multiplied must equal 
the number of rows in the second. In the example above, A(x,4)= 
B{4,x). 

o The number of rows in the receiving array must equal the number 
of rows in the first array. In the example, C(2,x)=A(2,x). 

• The number of columns in the receiving array must equal the 
number of columns in the second array. In the example, C(x,3) = 
B(x,3). 

These requirements are graphically represented below: 



<!> 



v^ 



A(2,4) B(4,3) 



C(2,3) 



V 



r 

v.. 
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The arrays in statements 75 and 80 are conformable and thus are valid 
for matrix multiplication operations. 



If A contained la 



[: 



'] 



c d I and B contained 

g h 



i J k 

I m n 

o P q 

r s t 



the values of C 



[u V vvl 
X y zj 



vvl , would be constructed as follows: 



u = a*l + b*1 +c*o + d*r 

(sum of members in first row of A times the members in first column of B) 

V = a*j + b*m + c*p + d*s 

(sum of members in first row of A times the members in second column of B) 

w = a*k + b*n + c*q + d*t 

(sum of members in first row of A times the members in third column of B) 

X = e*i + f*l + g*o + h*r 

(sum of members in second row of A times the members in first column of B) 

y = e*j + f*m + g*p + h*s 

(sum of members in second row of A times the members in second column of B) 

z = e*k + f*n + g*q + h*t 

(sum of members in second row of A times the members in third column of B) 



Using Arrays 137 



v_ 



V. 



V 



138 



Chapter 14. What to Do When Your Program Does Not Work 



o 



o 



When your program does not work properly, you can use the 
following 5110 aids to assist you in determining what is wrong: 

• Program trace 

• Program step 
o Comments 

• Keyboard-generated data files 

PROGRAM TRACE 

Program trace allows you to trace the order in which program 
statements are executed. Each statement number is displayed (and 
printed if you specify PRINT with the RUN or GO command) as the 
statement is executed. The following example shows the display and 
printout when the RUN TRACE, PRINT command is entered. 

Sample program: 

010 DIM Q<5) 

020 PRINT •E;NTI:.R S TEMPERATURE QUOTATIONS' 

030 MAT INPUT Q 

OO'IO FOR I=:^=l TO 1:5 

50 T::::T + QCI) 

060 NEXT I 

070 A===T/5 

080 PRINT "5 DAY MOVING AVERAGE =^ ' ; A 

09 STOP 
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The display shows: 

RUN TRACE, PRINT 

0:l.O 020 ENTER 5 TEMPERATURE QUOTATIONS 

0030 

62, 65. 68,61, 6U- 

OOMO 0050 0060 0050 0060 0050 0060 0050 0060 0050 0060 0070 

080 5 DAY MOVING AVERAGE == 6M- 

0090 

The printed output is: 

(J :l. 20 3 '•!• 5 (j 6 5 (} 6 5 (J 6 5 i? 6 
5 6 7 8 9 

Your program could stop because an error occurred, or you could stop 
execution by inserting PAUSE statement{s) in your program; for 
example: 

35 PAUSE 

OOi+O FOR I=::.t TO 5 

50 T"=T + q(I) 

055 PAUSE 

06 NEXT I 

The PAUSE statements allow you to trace and analyze just the part of 
the program that is not working correctly. When the program above 
pauses at statement 0035, you can start it again by entering GO 40, 
TRACE. The program then pauses at statement 0055. While the 
program is halted for the PAUSE statement, you can check the value 
of variables to see if your program is progressing properly. See the 
sample cross-reference program in Chapter 15, T/ps and Techniques 
for a method of listing variables to determine where they are used and 
whether they are used more than once. 

You can also start and stop a program trace during program execution 
using the WRITE FILE and FORM statements. For example: 

6255 URITEFILE USING 6260 , FLS, * N ' , ' N ' 

626 FO RM P0S3 , C , POSi-l- , C 

6300 WRITEFILE USING 6260 J"LS; ' F ' , ' F ' 

Statement 6255 turns on trace with output to both the display (N in 
position 3 of file FLS) and the printer (N in position 4 of file FLS). 
Trace remains on until statement 6300 when the WRITE FILE 
statement turns it off (writes an F in positions 3 and 4 of file FLS). 
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PROGRAM STEP 

With program step, you can execute a program one step at a time, 
which can be helpful when you analyze complex routines. As with 
trace, you can execute part of the program in step mode by inserting a 
PAUSE statement at the beginning of the routine (or statements) you 
want to analyze. 

For example: 

0:1.0 DIM Q(S) 

020 PRINT "ENTER 5 TEMPERATURE QUOTATIONS' 

03 MAT INPUT Q 

3S PAUSE -. Allows you to start program step 



Allows you to stop program step and/or 
— analyze program results. 



OOM-O EOR I=-l TO '5 

050 T""TfQ(I) 

60 NEXT I 

065 PAUSE ^ 

070 A====T/5 

B P R I HT '5 HAY M V I HG A V I!:: R A G E. ■■■■■ ' ) A 

09 STOP 

When the program pauses at statement 0035, entering GO 40, STEP 
causes the program to execute one statement at a time, allowing you 
to check program results. For example: 



RUN 

ENTER 5 TEMPERATURE QUOTATIONS 

62,65,68,61,61+ 

GOMO , STEP — Begin program step at statement 40. 
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Request the values of variables T and I. 



GOTO , RUN- 

5 DAY MOVING AVERAGE 



6'+ 



Continue processing at statement 70 without 
program step. 
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COMMENTS 



Using comments within your program can help you remember program 
logic and aid in analyzing program problems. When you are finished 
developing your program, you can remove the comments or revise 
them for future program analysis. Comments use storage and a small 
amount of execution time. Thus, you should use comments carefully if 
you are concerned with performance or storage use. However, 
comments can be an important aid in future analysis of your program, 
especially if someone else must maintain the program. 



Keyboard Test Data Files 

When developing or analyzing a program, you might have to use test 
data. You can use keyboard test data file(s) to create a test file on the 
display screen. You can open the screen for both input and output 
and for both stream I/O and record I/O files. For example, you can 
open line one of the screen as a stream I/O input file as shown: 

020 OPEN FL3, '001' , IN 

References to file FL3 imply that data is to be entered from the 
keyboard; for example: 

0360 GET FL3,A$,B,C 

This statement indicates that an alphabetic field followed by two 
numeric fields will be read from the file referenced by FL3; for 
example: 

Allen Brown, 4.80, 6085.56 

You could also use lines 1 through 14 as a record I/O file, for 
example: 

2 P E N F 1 L E F I... 2 , " 2 ' , A I... L 

OiJ-OO READFILE USING MIO , FL2 , A$ , B, C 

1|- 1 FG RM PGS 1 , C2 , NCS , NC3 

References to file FL2 indicate that data is to be entered from the 
keyboard. 

You can enter test data as necessary to thoroughly test your program 
during program development. When you are finished testing, you can 
change device addresses to the value you will use in your finished 
program. 
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Often, specific examples can aid you in understanding the operation of 
a function or a group of functions. This chapter shows examples and 
describes different techniques that you may find helpful in developing 
and using your programs. The topics included in this chapter are: 

• Performance considerations 

• Storage considerations 

• Program analysis using a cross-reference program 

• Skipping to a new page while printing 

• Locating a character in a string 

• Testing for an error 

• Sorting an index file 

• Another way to read a stream I/O file 

• Examples of the different file access methods 

PERFORMANCE CONSIDERATIONS 

As you optimize the performance of an application, you may want to 
consider the following: 

Program design 

Index file sorting 

Print overlap 

Display off 

Main storage index area 

Data file access selection 
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Program Design 

Performance of an application is enhanced if it is initially designed 
carefully and thoughtfully. Flow diagrams are very helpful in designing 
efficient running systems. There are many publications on 
flowcharting that you may find helpful if you are not familiar with the 
technique. 



Index File Sorting 

Many applications, such as inventory, make use of an index file with 
pointers that allow fast access to desired records. If the index file for 
the inventory example is sorted in ascending order, access to master 
inventory records will be faster. The increased performance occurs as 
the result of the fast scan feature implemented in the 5110, which 
requires a sorted file. As new items are added to the master file, the 
item number key (item number is specified as the key) is added to the 
end of the index file. Depending on the activity of adding and deleting 
records, the index file should be periodically sorted so that the new 
index record is placed in its proper location and the unwanted index 
records are deleted. You can sort the index file using the 5110 
Diskette Sort feature; see Sorting an Index File in this chapter. 



Print Overlap 

The 5110 can overlap printer output with computer processing. If it is 
possible with your application, the printed output might be as 
illustrated below: 

01 CALCULATION 



015 PRINT F-LP 
060 CALCULATION 



0:1.0 PRINT FLP 
0110 CALCULATION 



In the above illustration, calculations to be included in the next print 
statement are being performed while the previous line is being printed. 
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Display Off 
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Some applications may require extensive periods of processing time. 
Such applications should execute faster if the display screen is turned 
off so that the 5110 does not have to take the time to keep the 
display generated. You can turn off the display screen by writing an F 
in position 1 of file FLS. This procedure is described under Using the 
System Control functions in Chapter 1 2. 



Main Storage Index Area 

Access to a master file record using an index file can be improved 
substantially if you maintain a main storage index area that points to 
the index file. To do this, you use the KW= parameter, which is 
included in the OPEN statement for the index file. For example, 

30 OPEN FILE FL2, 'D80', 9, TAXES', IN, KEY, KW=900 

In the above statement, 900 bytes of main storage have been allocated 
for index file pointers. Use of this storage area can best be described 
with an example. 



o 
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Consider an inventory application with the following characteristics: 

• The maximum number of items in the master file is 1000 items. 

• The key to the master file is the item number which is 12 bytes. 

• The diskette format is 256 bytes per sector. 

• The master file record size is 100 bytes per record. 
The following questions can be asked: 

• How large should the index file be? 

• How large should the storage index area be? 

Before you answer the above questions, study the following diagram 
to help you understand the use of the KW storage area and index file. 



KW=Main Storage 




Key A 



Record 
Number 



Key H 



Record 
Number 



Sorted 
Index File 



/ 



Key A 



Master File 



Key A 



Pointer to the first key 
in the sector. 



■ One Sector 



Record 
Number 



Key B 



Description 



Key B 
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The index file, maintained in sorted order, contains each key and the 
record number of each record in the master file. A key record is 
always 8, 16, or 32 bytes. In the example, the key length (item 
number) is 12 bytes. A master file record number is 4 bytes, giving 16 
bytes total for each key record. 



The main storage index area contains the first key in a sector and the 
physical record location of the key in the index file. 



o 



The index file sector containing the item number key is found by 
comparing the item number to the keys in storage. Because the index 
file and main storage index area are in sorted order, the sector 
location of the key index record can be quickly found. The system 
proceeds to the sector designated and reads the sector sequentially 
until it finds the matching key. After the matching key is found, the 
master file address is read and used to directly access the item master 
record. If no key match was found in the index sector, the system 
proceeds to the end of the file to see if new records have been added. 
If no key match occurs at the end of the index file, an error occurs. 



Now, to answer the first question, the index file size is found by 
multiplying the maximum number of keys by the key length, which is 
1,000*16 or 16K. The size required for the storage index area is 
calculated as follows: 



1000/ 16* 14 = 875 bytes 



Size of the Main Storage Index Area 

Key Length Plus 2 

Number of Key Records Per Sector (256/16) 

Maximum Number of Keys in the Index File 



This example, using KW=900 is slightly greater than the exact amount 
of storage area to contain one key for every sector in the index file. 
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The above procedure produces the most efficient method of accessing 
the master file by index key. However, you need not have one key in 
storage for every sector in the index file. If storage is limited, as little 
as one key in storage (KW=14) would improve access time by starting 
the search in the middle of the index file as required. 
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Data File Access Selection 

One of the most important decisions is choosing the proper access 
method for your data files. 

Whether to use the sequential, direct, or indexed access method 
depends on your application. 



Individual Record Access 

The fastest method of access to an individual record is directly by 
means of the relative record number of the desired record. 

For example, in an inventory file it is possible to convert the item 
number into a record number. Item numbers could be 1 to 1000. Item 
number 52 would be record 52 in the file. There are more complicated 
methods for creating a relative record number; however, they are 
beyond the scope of this document. 

Indexing is the next fastest method to access individual records. A 
pointer to the master file data record is maintained in an index file. 
This is the most commonly used access method because existing keys 
such as item numbers can be used without chance of duplicates. 

Processing a file sequentially to find an individual record is time 
consuming because the file must be read from the beginning until the 
proper record is found. 



Sequential Access 

If a file can be accessed sequentially, the fastest method would be to 
sort the master file into the desired order before processing. If the file 
is processed sequentially in some cases and directly in others, it may 
be more appropriate to create a sorted index file. The system can 
then access the master file sequentially by accessing the index file 
sequentially or directly by providing a key to the index file. 
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Storage Considerations 
User Storage 



The amount of user storage available to you for application programs 
depends upon your 5110 model. Four different storage sizes are 
available: 

1 6K bytes 
32K bytes 
48K bytes 
64K bytes 

Any model can be up-graded to the next higher model by the addition 
of 16K of storage. In all models, approximately 4K bytes are used for 
system-related functions. The remaining storage is available for 
program and data storage. It is a good idea to subtract a buffer of 1 K 
bytes when estimating storage requirements. 

Considering a 32K machine, for example, you would subtract 5K, 
leaving 27K bytes for your program and data. The amount of storage 
used for a program is a function of many items: 

o Program Design 

- Variables 

- Program statements 

- Buffers ^ 

- Precision 

Careful control of the above items should lead to both smaller 
programs and more efficient programs. 
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Program Design 

Storage is allocated for each program statement you write and each 
variable you use. Careful program design should eliminate unnecessary 
program statements and variables. A flow diagram prepared for each 
essential step of the application will aid you in writing the program. 
Commonly used calculations, such as tax calculation, can be quickly 
identified and written as a subroutine rather than rewritten in various 
parts of your programs. Your application may lend itself to being 
divided into individual programs, each with a specific function. 

• Application 

- Data entry 

- Data edit/update 

- Sort 

- Process/update 

- Print reports 

The above functions could describe the steps in many different 
applications. Each of these may, perhaps, also be subdivided into 
smaller programs. 

Addressing the elements of the application one at a time, rather than 
attempting to write the entire application as a single program, should 
result in easier programs to write and understand, and require less 
storage for execution. 



Variables 

Each time a new variable is used in your program the system 
automatically assigns a predetermined (default) amount of storage for 
the data in that variable. For example: 

02 Ai|i=::= • JAMES SMITH' 

The character variable A$ was assigned 18 character positions in 
storage even though the data 'JAMES SMITH' occupies only 11 
positions. 
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If the data in A$ is constant or can be limited to 1 1 positions, you can 
use a dimension statement to override the default value and assign 
only the necessary 1 1 positions to A$, thus using only the amount of 
storage absolutely necessary. For example: 

0:1.0 DIM A$:l.:l. 

A specific amount of storage is required for the definition of each 
variable as it is encountered; this amount does not include the space 
allocated to that variable for data storage. In the above example, with 
no dimension statement, 4 bytes are required for the A$ definition, 
bringing the storage utilization to 18+4 or 22 bytes. The amount of 
storage required for the different variable definitions and data storage 
is specified in the IBM 5110 BASIC Reference Manual. 

Use of matrix variable definition can also help in conserving storage. 
Suppose four character-fields are to be used as follows: 

A$ Name 

B$ Street Address 

C$ City 

D$ State 

Assuming the data storage for each variable defaults to 18 characters, 
a total of 88 bytes of storage would be required. If the same data 
were placed in a four-element matrix, the amount of storage used 
would be 4 elements * 18 bytes of data plus 10 bytes for the matrix 
definition. For example: 

(4* 18)+10=82 bytes 
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Program Statements 

Program statements also occupy storage; this is a more difficult item 
to estimate due to the complexities of each statement. As a rule of 
thumb, the approximate amount of storage required for program 
statements can be calculated by multiplying the number of program 
statements times the average number of characters (excluding 
delimiter blanks) per statement. 



Program Statement 



.1. 
020 
030 
OOMO 
050 
0060 
0070 



PRINT 
INPUT 
PRINT 
INPUT 
T =••••= P«Q 

prj:nt 

GOTO 



ENTER PRICE 



ENTER QTY 



' TOTAL 
010 



COST 



Number of Characters 

22 

10 

20 

10 

9 

26 

10 



In the above example, there is an average of approximately 16 
characters per line. The storage estimate for the program statements 
is 7 * 16 or 112 bytes. 

* 
The actual amount of user storage available is displayed in the lower 
right corner of the display when the 51 10 is in the ready state. For a 
64K system this is 65,536-4,624 or 60,912. The 4,624 bytes represent 
system work space. 

A more accurate method to determine program statement storage is to 
save the program on tape or diskette. When the program is reloaded, 
the amount of user space left will be displayed in the lower right 
corner. Subtracting this number from 60,912 yields the actual program 
statement requirements. 

The storage requirement for the example above is 60,912-60,780 or 
132 bytes. 

After execution the storage available is 60,754 bytes, indicating that 26 
bytes were assigned to variables and data when the program was run. 



Buffers 



Buffer storage is required for operation involving data files, printer 
output, and the special function using A$. 
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Data Files 
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Each time a stream I/O data file is opened, a storage buffer of 50 
bytes plus the physical record length is allocated. The physical record 
length is 512 bytes if the file references tape, and the physical record 
length is the sector size if the file references the diskette. 

Each time a record I/O file is opened a storage buffer of 68 bytes plus 
a multiple of the physical record length is allocated. Most commonly 
the multiple is 1 or 2. The physical record length for tape is always 
512 bytes. For diskette it can be 128, 256, 512, 1024 depending on 
how the diskette was initialized. Record I/O buffers are discussed in 
the IBM 5110 BASIC Reference Manual. 



Printer 

Printer output requires a buffer storage of 200 bytes. 

Using A$ 

The using A$ parameter is used with the READ and PRINT statements 

020 A$^:='F(:)RM 3^(NC!:r 

031+0 PRINT USING A$ , F" LP , A , B , C 

The first time a using A$ parameter is encountered, the 5110 
automatically allocates a 420-byte buffer, which is used by all 
subsequent using A$ statements. Statements referencing other 
variable identification (such as B$) also use the same buffer area. 

Precision Long and Short 

When a program is in execution, each numeric variable is carried in 
long precision (fifteen digits) and occupies eight character positions. 
By entering RUNS numeric variables are carried in short precision 
(seven digits) and occupy four character positions. Whether RUNS 
(short precision) is acceptable depends on the requirements of each 
individual application. 
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PROGRAM ANALYSIS USING A CROSS-REFERENCE PROGRAM 

Occasionally, while writing a BASIC program with many loops, 
subroutines, and other functions, you may find that normal debugging 
techniques are unsuited due to the complexity of the program. The 
following is a cross-reference program that can be used to 
cross-reference the occurrence of variables, line numbers, functions, 
and so on, within any program saved in a file. To do this, simply load 
the cross-reference program, and respond to its prompting messages 
for the device address, number, and name of the file containing the 
program to be cross-referenced. The program to be processed must 
have been saved in source format with 64 or 128 character record 
length. For example: 

s A V e:: :i. , "nam i;;: ■ , s o u r c: i;- , r e c l ■■■■■■■ 6 m- , u e ( ) 

For details about any of the statements in the cross-reference 
program, see the 57 W BASIC Reference Manual. 

The following is a listing of the cross-reference program. 

0:1.0 REii BASIC CROSB REF'ERENCE PROGRAM - REFERENCE EXTRACT 

02 REM 

30 DIM N$i|-,B $'•!•, C$39 

0"+0 DIM R$i|(3000) ,S$i-i(3000) ,X(3000) 

!i^ C % =:== "ABC is E F B \\ 1 J K L, M N ? Q R 8 1 U V W X Y Z $ ^^ (?i J. 2 3 'I- 5 6 7 ^iJ 9 ' 

060 PRINT 'ENTER DEVICE CODE, FILE NUMBER AND FILE ID FOR PGM' 

070 INPUT D$.F,F$ 

080 ONERROR GOTO 20 

9 F* E N E I L !!• E L 1 , D % , E , E $ , I N 

010 ONERROR SYSTEM 

Olio R:===RLNC 'FLl ' ) 

012 IF R?^6i|- GOTO 115 

0130 DIM Ail>60,Mil>l59 

Ol'lO GOTO 290 

0150 IF R^12B GOTO 180 

0160 DIM A$12i|;M$123 

0170 GOTO 290 

0180 PRINT "RECORD LENGTH OF INPUT FILE NOT 6>l- OR 128' 

0190 STOP 

020 IF ^ERRi^60 8 GOTO 27 

210 ONERROR SYSTEM 

0220 OPEN FLlj:i$ J-- ,F$, IN 

0230 WRITEFILE FLS, ' FLl' 

02 MO Tl:===l 

0250 DIM A$12B,M$127 

0260 GOTO 290 

0270 PRINT 'ERROR DURING OPEN •••^ERR 

028 STOP 

029 WRITEFILE FLB, 'F' 

030 REM 

0310 REM START OF LOOP TO PROCESS INPUT RECORDS 
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0320 REM 

0330 GOTO 370 ON Tl 

031+0 RE-ADF-ILE: using 350,FL1,N$,M$,EOF 7:1.0 

03S0 FORM C>I-,X1,C 

0360 GOTO i|0 

0370 GET FL:l,A*,EOF 710 

0380 N$=:--=STR(A$, 1,1-1.) 

0390 M$:::=8TR(A*,6) 

040 PRINT FLP,N$' '«$ 

OMIO GOSUB 970 

M-:? IF 8T R ( M$ , 1 , 3 ) == ' REM ' GOTO 33 

1|-3 I F ST R ( M$ , 1 , 1 )=••=': ' GOTO 33 

'11+ I F ST R ( M$ , 1 , i+ ) =••= ■ .DATA ' GOTO 330 

01+50 A$==:M$ 

0I-I-60 REM REPLACE ALL OPERATORS UITH BLANKS 

0I-I-70 REM 

OMBO FOR I:-=l TO LEN(A$) 

0'+90 IF IDX(C$,STR(A$,I,1) )^0 GOTO 560 

050 IF STR ( A$ , 1 , 1 ) ?^ ' ' ' ' GOTO 550 

0510 J=-:IDX<STR(A$,I + 1) , • • • ■ ) 

052.0 STR(Af>,I; JM)===* ' 

0530 I===I+J 

051+0 GOTO 560 

0550 STR(A$,I, 1>=:' ■ 

0560 NEXT I 

0570 REM INPUT RECORD HAS BEEN MODIFIED - EXTRACT REFERENCES 

0580 L:==LEN(A$) 

0590 I==-0 

060 I=^[-M 

0610 IF I::L GOTO 330 

062 I F ST R ( A$ , 1 , 1 ) •= " ' GOTO 6 

0630 J:=:IDX(STR(A$, I) , ' ' ) 

061+0 B*=--=:STR(A$, I, J-1) 

0650 I:=I-*J-"1 

0660 X1-"::X1 + 1 

0670 S$(X1)==:N$ 

0680 R$(X1):==B$ 

0690 IF I<L GOTO 620 

070 GOTO 330 

0710 REM END OF PROGRAM •- SORT AND PRINT OUT 

0720 GOSUB lOi-lO 

0730 MAT R$(X1)==:R$ 

07<+0 MAT S$(X1)=S$ 

0750 MAT X(X1)===(0) 

0760 MAT X==AIDX(R$) 

0770 C0==:0 

0780 FOR I=:=l TO XI 

0790 IF Nf>===Rf>(X(I)) GOTO 850 

080 GOSUB 970 

0810 PRINT FLP,TAB(1) ,R$(X(I)) ;TAB(5) ; ' : ' ; 

0820 N=::N+1 

0830 C0=--:0 
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08i|0 


N$-=:R$(X(:[) ) 




0850 


CO::=:CO-M 




0860 


IF" CO::; 10 GOTO 90 




0870 


GOBUB 970 




0880 


PRINT l-LP,TAB(5) , ' : ' I 




0890 


CO ••:•••• 1 




090 


PRINT FLP, ■ ' ;S$(X(I)); 




0910 


NE-XT I 




0920 


PRINT FLP 




0930 


PRINT F- LP, -NUMBER OF" SYMBOLS 


= 'N 


09i|0 


PRINT FLP,'NUMBr£R OF" REF-ERENCES = 


==*X 


0950 


GO SUB lOiM) 




0960 


STOP 




0970 


RE ADI" I LE US I NG 980, F" LS , L 




0980 


FORM P0S11,NC5 




0990 


LO::=INT ( LO/66 ) •K66+66-L0 




10 


IF LO::;on_.0>6 GOTO 1030 




1 1 


PRINT USING 1020, FLP, ' ' 




1020 


FORM C1,8KIPL0 




1030 


RETURN 




10 MO 


READFILE USING 1050,FLS,L0 




1050 


FORM P0S11,NC5 




1060 


L ==■•= I NT ( L /66 ) •K-66+66-L 




1070 


PRINT USING 1080, FLP, ' ' 




1080 


FORM C1,SKIPL0 




1090 


RETURN 





v_ 



The following is a sample printout when the cross-reference program 
is run on itself. 



A$ 

A$12 

A$60 

AIDX 

B$ 

B^l>'l- 

C 

C$39 

CO 

CI 

CI-!- 

D$ 

DIM 

EOF 

ERR 



FILE 

FLP 

FLS 

FLl 

FOR 



0370 
0580 
0160 
0130 
0760 
06i|0 
30 
0350 
050 
030 
0770 
1020 
0350 
070 
030 
03i|0 
020 
070 
070 
090 
O'iOO 
0230 
090 
0'!-80 



0380 
0620 
0250 



0680 



01490 

0830 
1080 

0090 
0»+0 
0370 
0270 
090 
090 

0810 
0290 
0220 
780 



0390 Oi-l-SO 0I-I-80 Ot|-90 050 0510 0520 
630 06I-I0 



0850 0850 0860 0890 



0220 
0130 



0220 
0220 

0880 
0970 
03 '10 



0160 0250 



090 
lOi-lO 
0370 



0920 0930 09M0 1010 1070 
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form: 


0350 


0980 


1020 


1050 


1 U 8 




BET : 


0370 












GGSU: 


OMIO 


0720 


080 


087 


0950 




GOTO : 


080 


0120 


01 MO 


0150 


017 


020 




OM-30 


OMM-0 


OM-90 


050 


05 MO 


0610 




0860 


1000 










1 


0I-I-80 


OM-90 


050 


0510 


0520 


0530 




060 


060 


0610 


620 


0630 


06I-I-0 




0790 


0810 


08 MO 


090 


0910 




IDX : 


OM-90 


0510 


0630 








IF : 


0120 


0150 


020 


OM-20 


OM-30 


OM-M-0 




0690 


0790 


0860 


1 






IN : 


090 


0220 










INPU: 


0070 












INT ; 


0990 


1060 










J 

L : 


01510 
0580 


0520 
610 


0530 
69 


0630 


06 MO 


0650 


LEN • 


OM-GO 


0580 










LO 


0970 


0990 


0990 


0990 


1 


10 


m 


0311-0 


039 


OMOO 


OM-20 


01-1-30 


OM-M-0 


M$12 


0160 


0250 










M$59 


0130 












MAT 


0730 


07 MO 


0750 


0760 






N 


0820 


820 


0930 








m 


03Im:) 


0380 


OMOO 


0670 


0790 


08 MO 


mn- 


030 












NC5 


0980 


1050 










NEXT 


0560 


0910 










ON 


0330 












ONER 


080 


010 


0210 








OPEN 


090 


0220 










POSl 


980 


1050 










PRIN 


60 
J. 1 


0180 
1070 


0270 


OMOO 


0810 


0880 


R 


0110 


0120 


0150 








R$ 


0680 


0730 


0730 


0760 


0790 


0810 


R$i|- 


MO 












READ 


: 03 MO 


0970 


10 MO 








RETU 


: 1030 


1090 










RLN 


: 1 1 












9il> 


: 0670 


07 MO 


07 MO 


090 






S$i-l- 


: OOMO 












SKIP 


; 1020 


1080 










STOP 


! 0190 


0280 


0960 








BTR 


: 0380 
. 0620 


0390 
0630 


0M-20 
06 MO 


01-1-30 


OM-M-0 


OM-90 


SYST 


. 1 


0210 










TAB 


0810 


0810 


0880 








TO 


OM-80 


0780 










T:i. 


02 MO 


0330 










US IN 


03M-0 


0970 


1010 


10 MO 


1070 




URIT 


230 


0290 
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0260 330 0360 OM-20 

0620 0690 070 0790 

0530 0550 0560 0590 

065 0650 0690 0780 



OM-90 050 0610 620 



10 MO 1060 1060 10 60 
OM-50 



090 0920 0930 09M-0 



08»-l-0 



0500 0510 0520 0550 



o 
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X 


MO 


0750 


0760 


0790 


0810 


08 MO 


090 










X.1. 


0350 


0660 


066 


0670 


680 


0730 


07M-0 


750 


0780 


09 MO 







0'i90 


0590 


0750 


0770 


0830 


10 












•J. 


02'lO 


0380 


OM-20 


OM-30 


OM-30 


OMMO 


OM-80 


OM-90 


050 


0510 






0520 


0550 


060 


0620 


06 MO 


0650 


0660 


0780 


0810 


0820 






0850 


0890 




















10 


0860 






















1020 


1010 






















1030 


1 






















lOi-iO 


0720 


0950 




















1050 


lOi-lO 






















1080 


1070 






















128 


0150 






















150 


0120 






















180 


0150 






















20 


080 






















270 


020 






















290 


01 MO 


0170 


0260 


















3 


OM-20 






















30 


MO 


MO 


MO 


















330 


OM-20 


OM-30 


OM-M-0 


0610 


07 














350 


03 MO 






















370 


0330 






















M- 


038 


OMMO 




















i|0 


0360 






















5 


0810 


0880 




















550 


050 






















560 


OM-90 


05 MO 




















6 


0390 


1 




















600 


0620 






















608 


020 






















620 


0690 






















6I+ 


0120 






















66 


0990 


0990 


0990 


1060 


1060 


10 60 












710 


031+0 


0370 




















850 


0790 






















90 


0860 






















970 


. OMIO 


080 


0870 


















980 


0970 






















NUMBI 


".R OF SYMBOLS 


::r. 


105 
















NUMB[ 


IR OF REFERENCES === ; 


376 
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SKIPPING TO A NEW PAGE WHILE PRINTING 



Using File FLS 

In the cross-reference program (see Program Analysis Using a 
Cr OSS-Reference Program, this chapter), lines 760 to 880 show two 
methods of skipping to a new page while printing. 

• Skip to a new page with 6 or fewer lines left 

• Skip unconditionally to a new page. 

Both methods use a portion of the contents of file FLS. Positions 1 1 
through 15 of file FLS always contain the total number of lines printed. 



0970 READFILE USING 980 J- LB 

980 F-ORM PQS:l:UNC5 

9 9 1... =~ I N T ( i... / 6 6 ) «• 6 6 ■'<■ 6 6 - L 

100 IF L0<0H..0>6 GOTO 1030 

1010 PRIi^^T USING 1020J-LF,' 

1020 FORM CI; SKI FLO 

1030 RETURN 

lOMO READFILE USING 

1050 FORM POSll.NCS 

1 6 L === I N T ( L / 6 6 ) «• 6 6 •+• 6 6 - L 

1070 PRINT USING 1080, FLP,' 

1080 FORM CI, SKI PL 

1090 RETURN 



,0 



1050,FLS,L0 
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Statements 760 and 830 are READ FILE statements that access file 
FLS. Statements 770 and 840 are FORM statements specifying that 
only the 5 numeric characters beginning in position 1 1 of file FLS be 
accessed. From this point on, the two methods of page skipping 
differ. The subroutine consisting of lines 760 to 820 specifies that 
printing begin on a new page if space for 6 or fewer lines remains on 
the current page. The subroutine consisting of lines 830 to 880 
specifies that printing begin on a new page unconditionally. In both 
cases, the constant 66 (11 -inch paper at 6 lines per inch) is used as 
the page length. The calculations in statements 780 and 850 use the 
data from file FLS (named LO) to determine remaining space on the 
current page. The IF statement (790) specifies the conditions for 
skipping to a new page (if space remaining is less than zero or greater 
than 6, continue printing). Statements 800 and 860 specify that blank 
lines be printed according to the FORM statements in 810 and 870. 
These FORM statements also indicate that LO is the number of lines to 
be skipped. The following examples show a breakdown of the 
calculations in lines 780 and 850. These examples assume a value for 
LO (positions 11 to 15 of file FLS) of 3200 or 670. 



Example 1 




Example 2 


L0=3200 




L0=670 


3200 




670 


INT(L0/66) 


Integer portion of 


INT(L0/66) 


48 


LO divided by 66. 


10 


( 48)*66 


Integer portion of 


( 11)*66 


3168 


LO multiplied by 66. 


660 


(3168)+66 


Lines printed on 


( 660)+66 


3234 


other pages plus 66. 


726 


( 3234)- LO 


Total lines 


(726)-L0 


34 


possible (including 
current page) 
minus LO. 


56 



This determines the number 
of pages already printed. 

This determines total lines 
already printed on pages. 

This allows for inclusion of 
the 66 lines available on the 
current page being printed. 

This determines the line spaces 
remaining on the current page 
(34 and 56, respectively). 
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User Program Control 

Printing can also be controlled by the user keeping track of the lines 
printed on each page. 

0:1.0 J™? T= lines per page 

020 \"\-~-2 H = lines in the page heading 

^'^'-^^^ S'-f-H s = lines available for printing 

OOi-lO GO BUB 120 

050 FOR :i: ::=:!. to :i.:i.o 

0060 PRINT FLIM- Print your report 

070 L^-::LM 

8 I F L-S GOTO :l. Test for printed lines equal to 

0090 GOTO :l.:l.0 S = lines available for printing 

010 GOBUB 120 



1 1 N E X T :i: -« Skip to a new page 

0120 REM rPrint page heading 

1 3 P-: Pi- 1 01 20-01 70 ] Set page number 

^^•'•'•'•f' '•••''0 I Lines printed = 

0150 PRINT FLP 

0160 PRINT FLP, TAB< 15) , ' PAGE ' ; P 

0170 RETURN 

PAGE 1 



»AGE 



*AGE 



1 1 
12 
13 
1 Il- 
ls 



For simplicity of illustration, a page size of 7 lines was used. This 
would normally be 66 for standard printed reports. Checks, invoices, 
and other documents would require different page sizes. The page 
heading would also be more extensive; however, the concept is the 
same. 

By changing the value in variable T, you can quickly accommodate 
various sizes of paper for the same report. 
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LOCATING A CHARACTER IN A STRING 

Another form of the computed GOTO statement uses the IDX intrinsic , 

function, which allows you to determine the exact position of a ^ 

specific character within a character string. For example, assuming 
that the operator entered N in response to input statement 920: 

09:1.0 DIM A$:l. 

0920 PRINT "ARE DIVIDENDS TO BE REINVESTED? Y OR N" ( 

0930 INPUT A$ 

09M0 GOTO 950; 20 ON IDX ('YN'.AHO 

0950 GOTO 910 

0960 REM 

Statement 940 causes the program to branch to statement 2000 (the 
second statement number in the list, just as N is the second character 
in the string). If neither a Y or N is entered, the program repeats the 
prompt to the operator (statement 950). 

TESTING FOR AN ERROR 

The ON ERROR statement provides another means of error recovery. 
This statement operates with two internal functions (&ERR and 
& LINE) to identify any type of error by error number and by the 
number of the line at which the error occurred. You can enter an 
ONERROR statement with a GOTO parameter to transfer program 
control to a particular statement in the event of an error, as shown 
below: 

0.10 ONERROR GOTO :l.;l.5 

020 OPEN FL9 , " D80 ' , 5 , " GEORGE ' ; OUT 

030 P R INT ' ENTE R P R INC I PLE ' 

OO'IO INPUT P 

5 P R 1 N T ' 1 1 M E ■ . • R A T \i ' , ' A M U N "f ' 

060 FOR T :•••••• J. TO :l.O 

070 FOR R=-=--:l. TO 20 

080 A=-==PK- ( 1 -^R/l ) t T -^ Calculated future value of 

9 PUT FL9 , T , R , A principal at a rate of 

:l. NEXT R 10/, to 20% for 1 to 10 

0:1. :l. NEXlf T years compounded yearly 

0:L:I.5 ONERROR SYSTEM 
0120 CLOSE FL9 
0130 STOP 
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In this example, the ONERROR statement specifies that file FL9 be 
closed (statement 120) if an error occurs. If, for example, the file was 
too small to hold all the values being entered into it, the ONERROR 
statement would ensure that the file was properly closed. The file 
could then be re-marked to a larger size. 

The internal constants (&ERR and 81LINE) can also be used to record 
error occurrences in a program with many input/output statements. In 
the following example, the ONERROR statement specifies that the 
program branch to the PRINT statement (line 150). The internal 
constants &ERR and &LINE are then inserted into the displayed line 
to indicate the error number and line number at which the error 
occurred. 

015 ONERROR CJOTO :l.i-l-6 

020 OPEN FIJI-, 'D8 ' , ' AF ' , IN 

30 OET FIJI-, A, B, CD j;- 

OOi-lO LET B:::=H 

050 LET A ====3 6 

060 LET C=::=Ci-B 

070 CLOSE ELM- 

08 OPEN FL'I-, "DBO ' , ' AF " , OUT 

90 PUT FL'I,A,B,C 
0100 CLOSE FL'l- 

0110 OPEN FLM-, 'DBO ' , " AF " , IN 

0120 GET ELM-, A; B, CD. E 

0130 LET A==:=B^tC 

01 MO LET D=::=A--E 
01II-5 GOTO 160 

01 '16 ONERROR SYSTEM 

(j 1 5 p R I N T ■ i;;: r r o r' ,& e r r , ■ i -i a s o c c u r r e d a t l :i: n e ' .. & i... :i: n e 

0160 CLOSE FLij- 
0170 STOP 

Note that the EXIT statement and the error exit clauses on 
input/output statements take precedence over the ONERROR 
statement. In other words, if an EOF condition occurs in a statement 
with an EOF exit specified, the EOF exit is taken even though the 
program might also contain an ONERROR statement. ONERROR 
SYSTEM should be the first statement of an error recovery program to 
avoid loops. Terminal errors clear internal error pointers and the 
program must go to end-of-job. 
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SORTING AN INDEX FILE 

When you create a key-indexed file, the key and corresponding 
location of each record in the file is stored in the index file. 
Subsequent access of the file can be significantly improved if you sort 
these keys into sequence. The following sample program illustrates a 
method of sorting the record keys in the index file. This is a storage 
sort and assumes that all keys can be loaded into storage at one time. 
The size of your machine will determine the maximum number of keys 
that can be sorted in this manner. If your 5110 storage size is less 
than 64K, adjust the DIM statements (130, 160, and 190) accordingly. 
Only those statements in the sample program that pertain to the index 
sort are discussed; others may be self-explanatory. 

OOIO REH INDEX FILE SORT PROGRAIi 

020 REH 

03 REM 

MO REM IF STORAGE SIZE IS LESS THAN 6^K ADJUST DIMENSIONS 

050 REM FOR l<$ AND X ACCORDINGLY 

060 REM 

70 PRINT 'ENTER DEVICE CODE, FILE NUMBER AND FILE I DENT' 

080 PRINT "FOR INDEX FILE TO BE SORTED ' ^"^-^.^^^ 

9 I N PUT D$ , F , F* ^^Identify key index file. 

:i. p E N I-- :i: i... ie: !•• i... i , d $ ; r- , i-- $ , :i: n 

:i. 1 R- RLN ( ■ FL 1 ' ) Length of last record in F LI 

0120 IF Ry<^32 GOTO 150 

1 3 D :i: M l< $ 3 2 < 1 1|- ) , X ( 1 i-l- ) 

OmO GOTO 20 

0150 IF Ri^l6 GOTO ISO 

0160 DIM l<$16<2300) ,X(2300^ 

0170 GOTO 20 

0180 IF R^8 GOTO 350 

1 9 D I M i< $(;K 35 ) . X ( 35 ) 




Key records are always 8, 16, or 32 bytes. 



•Space for 3500 8-byte keys in K$. 



20 REM READ IN ALL RECORDS IN THE FILE 

0210 I^:::I-M 

0220 READFILE FLl ; l<$ ( I ) , EOF 2'lO -« Bring all key records Into storage. 

023 GOTO 210 

2 MO REM CLOSE INPUT FILE, AND DETERMINE SORTED ORDER 

250 I::::I"1 

26 CLOSE FILE FLl — Set matrix size to I elements. 

027 MAT i<$(I)====l<$-^ 

28 MAT X < I ) =-: A I DX ( l< $ ) -^ Ascending Index value of K$ into X. 

0290 REM REURITE INDEX FILE IN ASCENDING SEQUENCE 

3 P E N !"■ 1 1... E F L 1 , D $ , !•• , F $ , U T , R E C L ==== R 

0310 FOR J====l TO I 

32 {4R I TEE I LE FL 1 , i< $ ( X ( J ) ) ^ New file of keys in K$ created 

0330 NEXT J as indexed by X(J). 

03 MO STOP 

350 PRINT 'NOT VALID INDEX FILE RECORD LENGTH' 
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Statements 70 and 80 request the indicated information, which is then 
used to open the file in statement 100. The length of the last record 
) accessed in the file referenced FL1 is assigned to R in statement 110. 

In statements 120, 150, and 180, the exact record length is tested, and 
variables K$ and X are adjusted accordingly in the following statement. 
Note that, if record length is not equal to 8 (statement 1 80), the 
program terminates by branching to statement 350. Statements 210, 
220, and 230 read all the record keys from the index file and branch to 
statement 240 when end of file is reached. The file is closed in 
statement 260. Statements 270 and 280 put the indexed file values in 
ascending order into matrix X (see Index Function in Chapter 2). 
Statement 300 reopens the original file (referenced FL1) for output 
with the same record length. Finally, statements 310, 320, and 330 
write all the record key values into the file in ascending sequence 
according to their ascending order in matrix X. 



ANOTHER WAY TO READ A STREAM INPUT FILE 

Using a system file called file FLS, you can obtain an alternate form of 
stream-oriented file input. This form of input allows your program to 
get a logical record from a stream-oriented file and assign the entire 
record (including all quotation marks and commas) to one character 
variable. Thus, a BASIC program in source form and in a type 2 or 
type 9 file can be read and processed as in the preceding 

O cross-reference program. Alternate stream file input can be obtained 

only from a file that is already open. You can invoke alternate file 
input by writing the file reference code (FL0-FL9) of the file in 
positions 7 through 9 of file FLS using the WRITE FILE statement (see 
the IBM 5110 BASIC Reference Manual). 
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A logical data statement in a stream I/O file can be read into a single 
variable as illustrated: 

1 : 9i|-56() , ' ADAMS Bupp I y ' , 96M- . 60 , 359 .00, " 8/22/77 



The above record could represent: 

Customer Number 

Customer Name 

Total Purchases to Date 

Last Purchase 

Date of Last Purchase 



94560 

Adams Supply 
964.60 

Amount 359.00 
8/22/77 



The data, if located in file 3 on device 'D80', could be read into a 
single variable as follows: 

:i. c) p i;;: n i"' i... :i. , 'bbi)' ,3, ' c u s 'if o m e: r • , :i: n 

20 DIM A$6i|- 

30 w R I T i;;: r- :i: i... i;:: u s i m (?, ^■ o , f l s , ■ f- i... :i. ■ 

OOi-lO FORM PQ87,C 
050 GET FL:l. ,A$ 
060 PRINT A$ 

The data in A$ as printed in statement 60 would include all commas 
and quotes as well as the actual data. The output from 60 would 
appear: 

94560/ADAMS SUPPLY',964.60,359.00/8/22/77' 

Referring to the cross reference program earlier in this chapter, the 
program uses a type 2 or type 9 file for input as follows: 



080 ONERROR GOTO 20 

9 G ? E N I" 1 1... i;;: r- 1... i , d % > f- ; i- $ . i \ 

0:1.0 GNERROR SYSTEM 

020 IF aERR?^608 GGTG 270' 
02:1.0 GNERRGR SYSTEM" 
0220 GPEN FL:l. ,D$.F.F$. IN' 
0230 WRITEFILE FLS, 
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If an error occurs, control transfers to statement 
0200. 

If this statement executes without error, a type 9 file 
has been opened. 

Reset error trapping. 

•Error 608 indicates that a type 2 file exists and that 
the program tried to open it as a type 9 file. Control 
follows in statement 220, where the type 2 file is 
opened. Any other error passes control to statement 
270 for termination. 

Reset error trapping. 

Open the type 2 file. 

"Invokes alternate input from a type 2 file to supply a 
logical record, including quotes and commas, in a 
single character varialbe. 
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) 



With these statements, you have opened file FL1 and you have 
dimensioned A$ and M$ to contain the logical records. By testing for 
an error in the opening of a stream file as a record file, the program 
reads either a type 9 file (fixed length record) or a type 2 file (variable 
length record) with delimiter characters. This alternate mode ignores 
the commas of the type 2 file. 



Different File Access Methods 

The following programs were written to illustrate various methods of 
file accessing. Before these programs were written, the diskette was 
first marked. Unlike tape files, diskette files can be marked and then 
re-marked, if necessary, without affecting any other files. 

Programs were created to illustrate the following record I/O topics: 

• Data entry with key index file 

o Direct access and update with key index 

o Sequential access by key index 

o Sequential access with no key 

o Direct access by relative record number 

• Create multiple index 

Each program uses the data file created by the first program. 
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Creating an Index File 

The purpose of the following program is to illustrate the method by 
which a record I/O file with a key index file is created. In this example 
an inventory master file is created with a key file of item numbers. 
The amount of data is purposely limited, and the method of data entry 
is simplified in order to focus on the method by which both the master 
and key file are created. 

Consider that you wish to store inventory data in your 5110. Fast 
access to each item is critical and the inventory data must be easily 
and quickly updated. The initial data files are created with the 
following program: 



Inventory master file specified 



:i. PEN F :i: I...E fi... :i. , ' db o ■ , 2 , • :i: tem . m aste r ' , out , recl- :i. 28 

020 OPEN FILE FLl , ' DBO ' , :L , ' ITEM . NO . INDEX ' , OUT , KEY , K P::::1. , KV.^'S 

030 PRINT 'ENTER . . . ITEM NUMBER* 

MO INPUT 1$ 

050 IF I$::=:'END' GOTO :l.50 

060 PRINT "ENTER . . . DESCRIPTION' 

070 INPUT D$ 

080 PRINT 'ENTER . . . QTY ON HAND' 

090 INPUT Q 

0:1.00 PRINT 'ENTER . . . UNIT PRICE' 

01:1.0 INPUT P 

0120 WRITEFILE USING 130 J"L1 , I^jv, Dili; Q , P 

0130 FORM C5,C20; PICCZZZZ^) , PIC ($$$$. *Hn-» 

01 '10 GOTO 30 

0150 STOP 



\ 

Key file specified 

Operator entered data 



Data written to master file 
Record format specified 



In the above example, the record format is specified in statement 130. 



Item Number 
Description 
Quantity on Hand 
Unit Price 



5 characters 

20 characters 

5 characters 

8 characters 



The key field is automatically created as a result of statement 20, 
which specifies file 1 on device D80 as the key file using 5 characters 
(KL=5) starting at position 1 (KP=1) of the master file (item number) as 
the key. The overall record length Is 128 bytes (RECL=128). Because 
our data consumes only 38 bytes, ample space is available for 
additional inventory data. 
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After the inventory data was entered, the master data file was listed 
and is shown below: 



:B2n2 SCREUD RIVER 

h5oo scREyD river 

B3 BOLTS 

50 PUHP 3/I-I- HGRSi: 

!5 02 PUMP 1/2 HORSi: 

A2n2 HAnMER 

A3 05 PIPE yRENCH 



!"i 



A fi n 



$0 

.■I- r\ !"• 
i> 7 ■...' 

'A: O i::: 



5 
85 


25 



o 



o 



The order in which the items are listed is the order in which they were 
originally entered. As you look at each record you can see the record 
format (space for 5-character item number, space for 20-character 
description, and so on. 

This data file is now available for access and processing. 

The key file created in file 1 should be sorted to produce the best 
operating performance. 
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Direct Access and Update with Key Index 

The purpose of the following program is to illustrate how you can 
directly access a data file by key, alter the data, and update the master 
file. This program uses the data file created by the previous program. 
The method of altering the data after it has been accessed uses a 
simplified version of the full screen formatting capability of the 5110. 
Using these concepts, you should be able to construct efficient 
routines. 



:l. 
02 
030 
OOMO 
050 
060 
07 
08 
9 
:l. 

:i. :l. 

012 

013 

omo 

0150 
016 
0170 
018 
1 9 
20 
210 
22 
230 
02110 
0250 
26 
27 



Z=^257 



Constant for controlling cursor position 



W:::=Z•^331 

DIH F$6M-,S$80 

F$=^:=' DESCRIPTION 



ON HAi^^iD 



UNIT PRICE' 



Specify format 
of inventory 
data display 



I" :|> "" u I::, i:) I.. r< J. r I .1. i.." in u in i"i H i\' J..i u in .i. i i- \^ .i. i., i::. i 

E$"" ' ITEn NUMBER' ^ Position cursor as specified in statement 10 

s T R ( s $ . 1 .. 'I- 3 ) -^ ' I" c) R M r' s z , c: 1 1 , X 3 , c: 5 , X 1 8 ii- , c >i- 7 , X 8 , c: 1 , c: 2 , C 2 , '—I 



8TR ( S$ , i|i|- , 35 ) ■■■■■■■ ' PIC ( ZZZZ^n , C6 , PIC ( $*$$# .nn) , CI , PG8U ' 

REM 

OPEN FILE FLl , ' D80 ' , 2 , ' ITEH . MASTER ' , ALL 1 kP^^firf?!^^ 

OPEN FILE FLl , ' D80 ' , 1 , ' ITEM . NO . INDEX ' , ALL , KEY/ -^.t ^h * 

p i;;: n p" i l e p' l 2 , ' o o 2 • , a l l _______^ 

P R INT ' ENTE R INDEX KEY' — — Open screen for record I/O 

INPUT K$-« — Enter item number desired input and output 



input and output 



IF K$==:='END' GOTO 230 

R E A D P' I L i;;: U S I N G 1 6 , P" L 1 ; K E Y ==:= K $ , 1 $ , IJ $ , (ij , P , N K P! Y 25 

FORM C5,C20,NC5,NC8.2 

WRITEFILE USING S$ , FL2 , E$ , 1$ , F$ ; ' > ' , D$ , ' < >' >Q, ' < < 

READFILE USING 190 , FL2 .. D$ , Q , P , CONV 170 

FORM POSU , C20 , X2 , NC5 , X6 , NCB . 2 

R E w R I T i:;: p' :i: l e u sing 210, P' 1... 1 , d $ , q , p 




Item is retrieved 
using key 

Item data is 
displayed 



!•• R M p s 6 , c: 2 , p :i: c < z z z z # ) , p 1 c ( $ $ $ $ n . ?Hn 

GOTO 120 

PRINT 'END OF JOB' 

STOP 

PRINT '■)<:■)(:¥:¥:¥:■){:■)(:¥:¥.■■)<.■¥.■■)(■ NO KPiY FOUND ¥:¥:)<: ¥:¥)<:¥:¥:¥:¥:¥:)<: ' 
PRINT 

GOTO 120 



Data items can be updated 
aster file is updated 



The master file is available for both access and update because the 
parameter ALL is specified in both OPEN statements 90 and 100. 
OPEN statement 110 referencing device 002 prepared the display 
screen for record input and output. 



V. 
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The operator keys in the item number in statement 130. The 5110 
then searches the key file for that item number. When found, the key 
record points directly to the location of the data record in the 
inventory master file. The master file data is retrieved (statement 150) 
and displayed for operator viewing (statement 170). The system 
positions the cursor at the beginning of the description data field. If 
no changes are to be made, the operator simply presses the EXECUTE 
key. If changes are needed, the operator positions the cursor 
appropriately, keys the altered data, and presses the EXECUTE key. 
When the execute key is pressed, the displayed data is rewritten back 
to the master file. 



ITEM NUiiBER 



50 02 

DESCRIPTIOM 
•PUMP 1/2 HP 



OH HAND UN:i:T PRICE 
;j.3< •::•=:>>> $85. < 



50 2 



ITEM NUMBER A202 



0:1.80 588 



des(::riptign 

•HAMMER 



ON HAND UNIT PRI(::E 
1.8 •::•:: <::•::•> $6.25< 



A202 



0:1.80 



o 



The above illustration is a copy of the display screen output. Item 
number 5002 was requested, and the quantity on hand has been 
altered to 13. Then item A202 was requested, and the quantity on 
hand was altered to 18. 

If an invalid key item number was entered, the NOKEY parameter in 
statement 150 would cause the system to print 'NO KEY FOUND' 
(statement 250) and request the next key (statement 120), The marks 
to the left and right of each data field bracket the area where valid 
data may be entered. 



o 
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Sequential Access by Key Index 

The purpose of the following program is to illustrate how the data in a 
master file can be accessed in sequential order specified by the key. 
Sequential access by key means that each key and its corresponding 
record will be accessed in alphameric order. That is, all keys beginning 
with A are accessed first, then B, and so on with numeric-only keys 
accessed last. 

OaiO REM SAMPLE PROGRAM ID READ THE INVENTORY 

02 REM DATA BASE SEQUENTIALLY BY KEY ITEM NUMBER 

030 REM 

OOMO REM 

015 REM 

06 DIM Ff6i!- J-I$6il-,D$20 

07 REM 

B D ATA ' :i: 1' i;;: m numb e r i:i e s c: r i r* r :i: o n o n i-i a n d u n :i: r r^ i^ i c: e: ■ 

090 read H'li 

:l. !•' R I N r !•■■ I... P , I"! $ ^ Format output data. 

Olio REM 

120 STR < F$ , 1 , 39 ) ■■■■■■ " FORMPOSl , X3 , C5 , X77C15 , XI , PIC ( 7.221^ ) , X3 , ' 

1 3 s r R ( r- $ , 'I- , i s > === ■ p :i: c < $ $ $ $ ^i . ^^ # > , s i< :i: r' ' 

OlMO REM 

OlliiiO OPEN FILE FLl ," D80 ", 5 ,' ITEM . MASTER MN \^ Key and data 

160 OPEN FILE FLl , ' DBO ' , M- , ' ITEM . NO . INDEX MN , KEYJ fjies specified. 

0170 PRINT FLP 

ISO READFILE USING 190 ; FLl , 1$ , D$ , Q , p , EOF 220— Data file is read until the 

1 9 FO RM C5 . 02 . NC5 , NC8 . 2 last item is encountered 

2 P R I N T U S I N G F $ , I"' L P , I '\> , D $ , Vk > ? - — -— _____^ 

2 1 GOTO 1 8 -^ Each item is printed 

022 i-^ R I NT T A B ( 3 ) , ■ ii- N D !•• J B * 

230 STOP 
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TEM NUMBER 

A2n2 
A30;5 
A:50 
B2i)2 
B30 
SO 
SO 02 



DESCRIPTION 



HAMMER 

PIPE WRENCH 

SCREWDRIVER 

SCREWDRIVER 

BOLTS 

PUMP 3/I1- HORSE 

PUMP 1/2 HORSE 



ON HAND 


UNIT 1 


'RK 


18 


$6.25 




13 


$16.7!^ 




5'5 


$8.1=^0 




150 


$1 .25 




60 
7 


$0 .85 
$95. 




13 


$85.00 





Running the program shown above automatically creates the printed 
output as illustrated. Notice that the item numbers are listed 
alphamerically, and that the on-hand quantities have been updated 
according to the previous program. 

If the key file was sorted, the next sequential key could be located 
more quickly, thus making this program execute much faster. 



o 



Sequential Access with No Key Used 

The purpose of this program is to illustrate how your data file may be 
accessed sequentially without the use of a key index file. Even though 
a key file was created, it is not necessary to use it for every access. 
Sequential access to a master file without a key simply means to 
retrieve the records one after the other in their order of appearance in 
the file. In many cases, this will be their original order of entry. 



o 
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U2 

3! 
ij H- 

ij i' 



.1. ! 

1 G 

•i V 



The following program is the same as the previous program except 
that statement 160 has been deleted; you do not open the key file. 
The result is a listing of items exactly as they appear in the master file. 



REM SAHPLE PROGRAM TO READ Tl- 

REM DATA BABE GEQUENTIALLY . 

REM 

REM 

REM 

DIM E$6ti-, H$6i-!-, D$2U 

REM 

DATA 'ITEM NUMBER DEGCRIPTI 

READ Hf 

PRINT ELP,H$ 

REM 

GTR ( Ef , i . 39 ) "" ' EGRMPGGi , X3 , C3 , 

S T R ( r $ , H- . 1 B > ■■"■ ' !■■ ;[ G ( $ * $ $ t^ . # # ) , 

REM 

OPEN PILE PLi , ' DBO ' . 2 , ' liEM = M 

PRINT ELP 

R E. A D P' ]; 1... t. LJ B 1 N Q 1 9 ( J , i-" !.., J. , 1 $ , D $ , 

PGRM G3 , G2 , NG3, NGG , 2 

p R :i: N T u B :i: n g i- ^!> , !•• !..= i-^ , i $ , d $ , (ij , i-' 

G G T (J 1 B 

PRINT TAB (30), 'END GP JOB' 



E INVENTGRy 



■J I i 



TF 



fiN l-SANli 



R ' , I N 



U N 1 '!' P R ]■ C P 



V 



The output of the above program is illustrated below: 



I T i::: M NUMB E. R D E. B G R 1 P T :i: G 



GN HAND 



A5()U 
B 3 U 
3 (J (i 
3 2 
A20 2 
A3 3 



NUTB 

BGREWD RIVER 
B i... T B 

PUMP 1/2 HP 
PUMP 3/M. HP 
HAMMER 
PIPE URENGH 



b U ! i 
60 



;| H 



i! il 



This technique is handy for creating a fast listing of a data file because 
it avoids access to the key file. 
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Direct Access by Relative Record Number 

The purpose of the following program is to illustrate how you can 
access a record directly if you know its location in the master file. 
This is the fastest method of access because the system can go 
directly to the desired record in the master file rather than looking up 
the location in a key file or searching for the record sequentially. 

The following program is the same as the program previously 
described under Random Access and Update Using Key Index with 
the following changes: 

Statement 100 deleted No key file is opened and specified. 

Statements 120 & 130 The operator enters a numeric record 

number rather than a key. 

Statement 1 50 The record number is specified in 

the read statement with a REC= 
clause and a NOREC error branch. 

Statement 250 Error NO RECORD FOUND is displayed. 

Statement 140 Branch on zero rather than END. 



o 
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The program and its output are shown below: Notice that record 

number 3 is actually the third record entered by the original data entry 

program. / 

0:1.0 z^z'si 

020 W::==Z-f33:l. 

30 DIM Fil>6M-,G$80 

'i- !•• $ ==== ' i\ i;;: s c r i p r :i: o h q n i-i a n n i j n :i: r p r :i: c; i;;: ■ ,^ 

50 E$==:^' :i:tem number* V. 

6 8 r R ( s $ , :i. , m- 3 ) ==== • !"■ c) R M p C) s z , c 1 :i. , X 3 , c: 15 , X :!. B i-i- , c I-I- 7 , X Q , c; :i. ; c: 2 ; c: 2 , * 

7 S J R ( 8 $ , 'I- 'i , 3 15 ) ==== ' P ICiZZZIM) , C 6 , P ]: C ( $ $ $ $ ■>A.\\n) , C 1 , P S W ' 

80 REM 

9 p i;;: n f 1 1... i;;: f l i ; ' n a o ' , 2 , ■ :i: r 1;;: m . m a 8 r e r ■ , a i... i... 

0:1.10 OPEN FILE FL2, ' 02" ,ALL 
0:l.20 PRINT 'ENTER RECORD NUMBER' 
0:1.30 INPUT l< 
OlM-O IF !<:==: 00 TO 230 

:i. '5 R F. A D !"■ 1 1... li- u s I N G :i. 6 , P' I... :i. , R li- c: =:=: i< , :i: $ , d $ , (;) , p , n o r i;;: c; 2 5 o 

:l. 6 FO RM C5 , C2 ; NC5 , NC8 . 2 

:!. 7 W R I T E F 1 L E U 8 1 N Q S $ , i-' I... 2 , E $ , !!: $ , P' $ , '>' . D $ , ' < >' ,Q, ' < < < > > > ' ,P, ' < ' 

:l. 8 RE ADP' I I...E U8 1 NO :i. 9 , Fi...2 , D$ , Q , P , CON V :l. 7 

0:!.90 FORM PO8W,C20,X2,NC5,X6,NC8.2 

020 REWRITEFILE U8ING 2:1. J- L:l. , D$ , Q , P 

2 :i. p- R M p 3 6 , c: 2 ; p I c ( z z z z # ) , p :i: c ( $ $ $ $ ¥. ,m^) 

0220 GOTO :l.2 

0230 PRINT "END OF JOB" 

02<I0 8T0P 

250 PRINT ' ■V:)i- ■)<:¥:¥:¥:■){■¥:¥.■■)<: ¥:■){■ NO RECORD FOUND •)(••)(••)(••)(••){••)(•){•■)(••)(••)(••)(••)(' 

026 PRINT 

270 GOTO 120 

ITEM NUMBER B30 



D i;;: 8 c; r i p t i o n o n i-i a n d u n :i: j p r :i: c e 

> BOLTS <> 60 <•=:<>>> $0 .B5< 



3 

ENTER RECORD NUMBER 



•■;> 



0130 001 
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Create Multiple Index 

It may be desirable to have several key index files for a single master 
file. The 5110 can create one index file automatically as illustrated in 
the first data entry program. Suppose you wish to create a report 
organized alphabetically by item description. A second key file can be 
created with the item description as the key field using the following 
program. Two special key records (marker records) are required in the 
first two record locations of an unsorted key file (see the IBM 5110 
BASIC Reference Manual, Index file format). This program builds the 
first two special key records and all subsequent keys for the master 
file. 



o 



Special Key Record 1 



Special Key Record 2 



MASTER FILE KEY 



All Binary 0000 


Key Field 


Key 




Length 


Position 




2 Bytes 


2 Bytes 


All Binary 1111 


Unused 






4 Bytes 




Key 


Relative 

Record 

Number 





4 Bytes 
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0010 REM CREATE INDEX FILE FOR EXISTING MASTER 

0030 DIM K$28J..$2B,D$3J"$|? 

01+0 PRINT -ENTER DEVICE CODE. FILE NUMBER AND FII F NAME ' 

OOSO PRINT -FOR THE MASTER FILE TO BE USED 

06 INPUT Ii$,F;F$ " ' ' ' 

70 OPEN FILE FLI , D$ J- , F$ , IN 

080 R=-::RLN( 'FLl " ) 

090 REM 

0100 REM GET KEY INFORMATION 

0:l.lO PRINT "ENTER KEY LENGTH AND KEY POSITION 

0120 INPUT L, P 

0130 REM 

01 MO REM CHECK FOR VALIDITY 

:l. 5 I F L ■/■ I N T ( L ) I r-> 1/ .1 N T ( P ) f '^ T •:: 9 

0160 IF L<in:'<I GOTO 59 

0:1.7 IF R=:PfL-l GOTO 590 

0:l.BO REM 

0190 REM DETERMINE KEY RECORD ST7F 

020 Rl::=:32 

0210 IF L;::13 GOTO 250 

0220 Rl::::16 

230 IF L;::5 GOTO 250 
02'I0 R1-:B 
0250 REM 

260 REM GET INFORMATION FOR INDEX FII F 
270 REM 

0280 PRINT 'ENTER DEVICE CODE, FILE NUMBER AND FILE NAME " 

0290 PRINT "FOR INDEX FILE TO BE BUILT' 

030 INPUT D$J"J"$ 

0310 OPEN FILE FL2 , D$ J"' J"$ , OUT , RECL-RI 

320 R2:==Rl-3 

330 S^M) 

31+0 K$:::=X' 00" 

350 STR(K$,2)===:K$ 

0360 URITEFILE USING 370 , FL2, STR(K$, 1 . L) , L, P 

3 7 F' R M C:: , P S R 2 , B 2 , B 2 

380 REM 

390 REM GET KEYS FROM MASTER 

OMOO REM 

01+10 L$=:-K$ 

OLi-20 READFILE USING M-30 , FLl , STR( K$, 1 , L ) Ji-OF 5i+0 

OM-30 FORM POSP;C 

O'+MO R3=-=&REC 

01+50 IF S===li!K$>L$ GOTO 500 

0460 L$::::X'FF' 

OM-70 STR(L$,2)=--L$ 

01+80 URITEFILE FL2 , STR ( L$ , 1 , L ) 

01+90 S=::l 

050 REM 

051 URITEFILE USING 520 , FL2 , STR ( K$ , 1 ,L) , R3 

0520 FORM C,P0SR2,B'-I- 

0530 GOTO mo /- 

51+0 IF S=--=l GOTO 580 ( 

0550 L$==X'FF' 

0560 STR(L$,2):=L$ 

0570 URITEFILE FL2 , STR (L$ , 1 , L) 

0580 STOP 

0590 PRINT 'INVALID KEY LENGTH OR KEY POSITION OR NOT VALID FOR* 

0600 PRINT 'MASTER FILE RECORD LENGTH' 
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alphabet extender: Any one of the following 
three special characters: #, @, and $. 

alphabetic character: Any of the 26 letters (A 
through Z) of the English alphabet or any of the 
alphabet extenders (#, @, and $). 

alphameric character: A numeric or alphabetic 
character. 

argument: An arithmetic expression appearing in 
parentheses following a function name, either in a 
function reference (either a user-written or an 
intrinsic function) or in a pseudo variable. The 
expression represents a value that the function is 
to act upon. The function name may or may not 
be followed by arguments. 

arithmetic array: A named table of arithmetic 
data items. An array may be implicitly declared 
through usage or explicitly declared in a DIM 
statement. BASIC allows one- and 
two-dimensional arithmetic arrays. 

arithmetic constant: A constant with a numeric 
value. The three forms of arithmetic constants 
permitted in BASIC are integer, fixed-point, and 
floating-point. 

arithmetic data item: Data having a numeric 
value. 

arithmetic expression: An arithmetic constant, a 
simple arithmetic variable, a scalar reference to an 
arithmetic array, an arithmetic-valued function 
reference, or a sequence of the above 
appropriately separated by arithmetic operators 
and parentheses. 



arithmetic operator: A symbol representing an 
operation to be performed upon arithmetic data. 
The arithmetic operators are: 

+ Addition and unary plus sign 

Subtraction and unary minus sign 

* Multiplication 

/ Division 

f or""* Exponentiation 

arithmetic variable: The name of an arithmetic 
data item whose value is assigned and/or 
changed during program execution. The name 
consists of a single alphabetic character or an 
alphabetic character followed by a digit. 

array: A named list or table of data items, all of 
which are the same type-arithmetic or character. 
BASIC allows one- and two-dimensional arrays. 

array declaration: The process of naming an 
array and assigning dimensions to it either 
explicitly (by the DIM statement) or implicitly 
through usage. 

array element: See array member. 

array expression: An arithmetic expression or a 
character expression representing an array of 
values rather than a single value. It may be used 
only in an array assignment statement. 

array member: A single data item in an array; its 
position is indicated by a subscripted array 
reference. 



o 



Glossary G-1 



array variable: The name of an entire array. The 
name consists of an alphabetic character (for 
arithmetic arrays) or an alphabetic character 
followed by the dollar sign, $, (for character 
arrays). 

assignment: The process of giving values to 
variables; for example, via LET statements, READ 
statements, and INPUT statements. 

assignment symbol: The symbol =, which is used 
in an assignment statement to give a value to one 
or more variables. 

BASIC: A programming language designed for 
interactive systems and originally developed at 
Dartmouth College to encourage nonprogrammers 
to use computers for simple problem-solving 
operations. The word BASIC is an acronym for 
Beginners' All-purpose Symbolic Instruction Code. 



character expression: A character constant, a 
simple character variable, a scalar reference to a 
character array, a character-valued function 
reference, or a sequence of the above separated 
by the concatenation operator ( | | ) and 
parentheses. 

character operator: A symbol representing an 
operation to be performed upon character data. 
The concatenation operator ( | | ) is the only 
character operator in BASIC. 

character string: A sequence of characters that 
represents an item of character data. 

character variable: The name of a character data 
item whose value is assigned and/or changed 
during program execution. The name consists of 
an alphabetic character followed by the dollar sign 
character ($). 



binary operator: A symbol representing an 
operation to be performed upon two data items, 
arrays, or expressions. The four types of binary 
operators are arithmetic, character, logical, and 
relational. 

branching: Executing a statement other than the 
next sequential one; for example, via the GOTO 
statement. 

built-in function: See intrinsic function. 

character array: A named table of character data 
items. An array may be implicitly declared through 
usage or explicitly declared in a DIM statement. 
BASIC allows one- and two-dimensional character 
arrays. 

character constant: A constant with a character 
value. It is always enclosed by a pair of single or 
double quotation marks. 

character data: Data having a character value as 
opposed to a numeric value. 



comment: A remark or note included in the body 
of a program by the programmer. It has no effect 
on the execution of the program; it merely 
documents the program. Comments are written as 
a string of characters and may appear as a part of 
any program statement that has no operands (for 
example, REM, STOP, END, and RESTORE). 

concatenation: The joining of two character data 
items by the symbol | | . 

concatenation operator: The symbol | | , used to 
concatenate, or join, two character data items. 

constant: A value that never changes. BASIC has 
two types of constants: arithmetic and character. 

control specification: (1) One of the 

specifications X or POS, used in the FORM 
statement to specify formatting of records in 
record-oriented files. (2) One of the specifications 
X, POS, or SKIP, used in the FORM statement to 
control print line formatting. 

data file: See file. 
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data form specification: (1) One of the 
specifications B, C, NC, PD, S, L, or PIC, used in 
the FORM statement to specify formatting of 
character and arithmetic values in record-oriented 
files. (2) One of the specifications C or PIC, used 
in the FORM statement to format character and 
arithmetic values on a printed line. 

data item: A single unit of data; that is, a 
constant, a variable, an array element, or a 
function reference. 

data table: The values contained in the DATA 
statements of your program. DATA statements 
are processed in statement number sequence 
(lowest to highest). The values in each DATA 
statement are collected and placed in a single 
table in order of their appearance (left to right). 

data table pointer: An indicator that moves 
sequentially through the data table, pointing to 
each value as it is assigned to a corresponding 
variable in a READ statement. Initially, the 
indicator refers to the first item in the table. It can 
be repositioned to the beginning of the table at 
any time by the RESTORE statement. 

declaration: See explicit declaration and implicit 
declaration. 



E-format: Floating-point format. 

EBCDIC collating sequence: The ordering of 
character data items according to the Extended 
Binary Coded Decimal Interchange Code. 

error message: A message generated by the 
computer when an error has been detected. 

executable statement: A program statement that 
causes an action to be performed by the 
computer. 

execution error: An error discovered during 
execution of a BASIC program (for example, 
dividing by zero, or branching to a nonexisting 
statement number). 

explicit declaration: The use of a DIM statement 
to specify the number of members in an array, the 
number of dimensions in an array, or the length of 
a character variable. 

exponent (of E-format number): An integer 
constant specifying the power of ten by which the 
base (mantissa) of the decimal floating-point 
number is to be multiplied. 

exponentiation: Raising a value to a power. 



delimiter: A character that groups or separates 
data items. 

digits: the numerals 0, 1, 2, 3, 4, 5, 6, 7, 8, 9. 

dimension specification: The specification of the 
size of an array and the arrangement of its 
members into one or two dimensions. 

direct access: The storage or retrieval of data 
independently of other data in a file (that is, 
regardless of its location relative to other data). 

dummy variable: A simple variable enclosed in 
parentheses and placed after the name of a 
user-written function in a DEF statement. The 
function performs its defined calculation on the 
expression value substituted for each dummy 
variable when the program is executed. 



expression: A representation of a value; for 
example, variables and constants appearing alone 
or in combination with operators. Three forms of 
expressions are defined in BASIC: scalar 
(arithmetic or character), array (arithmetic or 
character), and logical. 

extended alphabet: The 26 letters of the English 
alphabet and the 3 alphabet extenders ($ # @). 

F-format: Fixed-point format. 

file: A named group of related data items that are 
stored together. In BASIC there are two types of 
files: stream-oriented and record-oriented. 

file reference: FLO through FL9. 
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fixed-point constant: An arithmetic constant 
consisting of one or more digits and a decimal 
point, and optionally preceded by a sign. 

fixed-point format: The form used to express a 
fixed-point constant. 

floating-point constant: An arithmetic constant 
consisting of an integer or fixed-point constant 
followed by the letter E, followed by an optionally 
signed one- or two-digit integer constant. 

floating-point format: The form used to express 
a floating-point constant. 

full print zone: Eighteen horizontal print 
positions. In a PRINT statement, a comma is used 
to indicate that a full print zone should be used. 

function: A named expression that computes a 
single value. See also intrinsic function and 
user-written function. 

function reference: The appearance of an 
intrinsic function name or a user-written function 
name in an expression. 



input list: A list of variables to which values are 
assigned from input data; the list can be made up 
of scalar variables, array member references, 
pseudo variables, array references, and array 
references with redimensioning. 

input/output: The transfer of data between an 
external medium (that is, the keyboard or a file) 
and internal storage. 

integer constant: An arithmetic constant 
containing one or more digits, optionally preceded 
by a sign. 

integer format: The form used to express an 
integer constant. 

internal constant: An arithmetic constant whose 
value is supplied by BASIC. The name of the 
internal constants are &PI, &SQR2, &E, &INCM, 
&LBKG, and &GALI. 

internal storage: A computer's main storage. 

intrinsic function: A function supplied by BASIC 
(for example, SIN, COS, or SQR). 



generic key: An argument specified in the KEY 
clause of a record I/O statement that is less than 
the full key length defined for a corresponding 
file. 

l-format: Integer format. 

implicit declaration: (1) The specification of the 
number of members in an array or the number of 
dimensions in an array, either by a reference to a 
member of an array or by context (without the 
array being explicitly specified in a DIM 
statement). (2) The specification of the length of a 
character variable by context (without the variable 
being explicitly defined in a DIM statement). 

input: The transfer of data from an external 
medium to internal storage. 



key: One or more consecutive characters used to 
identify a particular record in a key-sequenced file. 

key-sequenced file: A record-oriented file whose 
records are accessed according to keys. 

logical expression: A logical subexpression, or 
two logical subexpressions joined by a logical 
operator ( & or | ). Its value is either true or false. 

logical operator: An operator that is used in a 
logical expression. The logical operators are: & 
(AND) and | (OR). 

long-form precision: Precision whereby, 
externally, values printed with l-format and 
F-format have a maximum of 15 significant digits, 
and values printed with E-format have a maximum 
of 15 significant digits in the mantissa. 
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loop: A sequence of instructions that is executed 
repeatedly until a terminating condition is reached. 
The FOR statement identifies the beginning of a 
loop; the NEXT statement identifies the end of it. 

mantissa: In floating-point notation (E-format), 
the number that precedes the E. The value 
represented is the product of the mantissa and 
that power of ten specified by the exponent. 

matrix (mathematical): A two-dimensional 
arithmetic array. 

multiline function: A user-defined function that is 
defined with more than one statement. 

nesting: (1) The occurrence of a FOR/NEXT loop 
within another FOR/NEXT loop. (2) The 
occurrence of a GOSUB statement when one or 
more GOSUB statements are already active. (3) 
The use of more than one set of parentheses to 
indicate the order of evaluation in a complex 
arithmetic expression. 



operator: A symbol specifying an operation to be 
performed. See also arithmetic operator, binary 
operator, concatenation operator, logical operator, 
relational operator, and unary operator. 

output: The transfer of data from internal storage 
to an external medium. 

output list: A list of variables from which values 
are written to an output file; the list can be made 
up of scalar expressions and array references. 

packed print zone: A section of a printed line, 
consisting of a number of horizontal print 
positions, whose size is determined by the type 
(arithmetic or character) and length of the data 
being printed. In the PRINT statement, a 
semicolon or null delimiter is used to indicate that 
a packed print zone is to be used. 

padding: The addition of one or more blanks to 
the right of a character string to extend the string 
to a required length. 
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nonexecutable statement: A program statement 
that specifies information for program execution. 

null character string: Two adjacent single 
quotation marks that specify a character constant 
of blank characters. 

null delimiter: One or more blanks or no 
characters at all (that is, one data item directly 
following another data item with no intervening 
space or delimiter) used in a PRINT statement to 
specify a packed print zone. 

numeric character: Any of the digits 0, 1, 2, 3, 4, 
5, 6, 7, 8, 9. 

operand: A constant, a variable, an array member 
reference, a function reference, or a 
subexpression on which an operation is to be 
performed. 



precision: The number of digits for which 
significance can be expressed. 

print zone: See full print zone and packed print 
zone. 

priority: A rank assigned to an arithmetic 
operator; it is used when an arithmetic expression 
is being evaluated. The order of priorities, from 
high to low, is exponentiation, unary operations, 
multiplication and division, addition and 
subtraction. Operations at the same priority level 
are evaluated as they are encountered (from left 
to right in the expression). 

program: A logically self-contained sequence of 
BASIC statements that can be executed by the 
computer to attain a specific result. 

programmer-defined function: See user-written 
function. 
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pseudo variable: The use of an intrinsic function 
as a receiving variable. STR is the only pseudo 
variable in BASIC. 



sequential access: The retrieval of data 
according to the order in which the data is stored 
in a file. 



record: A collection of related data items treated 
as a unit. 

record-oriented file: A file in which items are 
stored in records. 

redimension specification: The assignment of a 
new dimension specification to an already existing 
array, via an array assignment statement, a READ 
statement, an INPUT statement, a GET statement, 
a READ FILE statement, or a REREAD FILE 
statement. 

redimensioning: The changing of the number of 
dimensions or the number of members in each 
dimension of a previously declared array. 

relational operator: An operator used in a logical 
subexpression. The relational operators are: 

Equal to 
?; or < > Not equal to 
> Greater than 

< Less than 

>= or > Greater than or equal to 

< = or < Less than or equal to 

remark: See comment. 

scalar: A single data item (as opposed to an array 
of items). 

scalar expression: An arithmetic expression or a 
character expression representing a single value 
rather than an array of values. 



short-form precision: Precision whereby, 
externally, values printed with l-format and 
F-format have a maximum of seven significant 
digits, and values printed with E-format have a 
maximum of seven significant digits in the 
mantissa. 

significant digits: All the digits of a number 
starting with the leftmost nonzero digit. 

simple name: Any combination of up to 8 
alphabetic and numeric characters (with no 
blanks). 

simple variable: A scalar variable (but not an 
array member). 

single-line function: A user-defined function that 
is defined in one statement (that is, the DEF 
statement). 

special characters: Any characters allowed in 
BASIC that are not alphameric characters. 

statement number: The number that prefaces a 
BASIC statement. It can be up to four digits in 
length (in the range 0000 to 9999). 

stream-oriented file: A file in which items are 
stored as a stream of data and retrieved in 
sequential order. 

subexpression: A group within an arithmetic 
expression and used by the computer to evaluate 
that expression. 

subroutine: A program segment (sequence of 
statements) branched to by a GOSUB statement. 
The last statement of a subroutine must be a 
RETURN statement that directs the computer to 
return and execute the statement following the 
GOSUB statement. 



G-6 



o 



o 



o 



o 



o 



subscript: Any valid arithmetic expression (whose 
truncated integer value is greater than zero) used 
to refer to a particular member of an array. 

substring: A part of a character string. 

system-supplied constants: See internal 
constants. 

truncation: The deletion of one or more 
characters on the right of a character string to 
shorten the string to a required length. 

unary operator: An operator that precedes, and 
thus is associated with, an arithmetic expression. 
The unary operators are + (positive) and 
(negative). 

user: Anyone utilizing the services of a computing 
system. 

user-written function: A function defined by the 
user in a single-line or multiline function definition. 

variable: A name used to represent a data item 
whose value may change during execution of a 
program. 

zero suppression: The elimination of leading 
nonsignificant zeros in a number. 
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